Testing Keyfax OCX using VBscript
Example
Which version of VBScript do I have to use ?
32 Bit: C:\windows\syswow64\CScript.exe testocx.vbs
64 Bit: C:\windows\system32\CScript.exe
Example script
Dim Keyfax Set Keyfax = CreateObject("KeyfaxEx.Keyfax") 'MsgBox IsObject(Keyfax) ' ' Two methods: (a) set properties or (b) the whole XML packet ' Keyfax.InitStartup ' Method (a) 'Keyfax.mode = "RD" 'Keyfax.Company = "SCH" 'Keyfax.UserName = "operator" 'Keyfax.Password = "Global" 'Keyfax.Tenant = "Mr J Smith, 1 High Street, etc" 'Keyfax.TenantID = "0123456" 'Keyfax.AssetID = "987654" 'Keyfax.Tenancy = "D" 'Keyfax.RepairNo = "1234567" 'Keyfax.SendStartup ' Only called if method (a) ' Method (b) Set oXML = CreateObject("Msxml2.DOMDocument.3.0") oXML.LoadXML("<KeyfaxData>
<Startup name='Fault1'>
<Startup>XML</Startup>
<Export>XMLHTTP</Export>
<GUID>KEYFAX32-1792-563A-E84F8206D1E974BEoperator</GUID>
<ReturnURL>http://dev.touch-base.com/keyfax32/test/response.asp?co=Default&code=1&userid=operator</ReturnURL>
<IsPopup>False</IsPopup>
<Mode>RD</Mode>
<DbType>SQL</DbType>
<UserName>operator</UserName>
<Password>Global</Password>
<Tenant>Mr T Butler Mrs H Butler, 12 Village Street, Parkstone, Poole, Dorset, BH14 8UB</Tenant>
<TenantID>T13</TenantID>
<AssetID>T13</AssetID>
<Tenancy>1</Tenancy>
<RepairNo/>
</Startup>
</KeyfaxData>") Keyfax.StartupXML = oXML Keyfax.SetStartupFlag ' Keyfax has concluded - process Export XML 'MsgBox(Keyfax.GetKeyfaxStatusText) 'MsgBox(Keyfax.ExportXML.xml) Set Keyfax = Nothing