Set haWin321 = CreateObject("HAWin32")
Set haWin322 = CreateObject("HAWin32")
Set haWin323 = CreateObject("HAWin32")
Set haScript1 = haWin321.haInitialize("test1")
Set haScript2 = haWin322.haInitialize("test2")
Set haScript3 = haWin323.haInitialize("test3")
cr = Chr(13)
dim datastr
haScript1.haSizeHyperACCESS 3
haScript2.haSizeHyperACCESS 3
haScript3.haSizeHyperACCESS 3
haScript1.haOpenSession "1.HAW"
haScript2.haOpenSession "2.HAW"
haScript3.haOpenSession "3.HAW"
haScript1.haConnectSession 0
haScript2.haConnectSession 0
haScript3.haConnectSession 0
haScript1.haWaitForConnection 1, 100000
haScript2.haWaitForConnection 1, 100000
haScript3.haWaitForConnection 1, 100000
while haScript1.haGetConnectionStatus = 1
datastr = haScript1.haGetInput (0, -1, 10000, 10000)
haScript2.haTypeText datastr
haScript3.haTypeText datastr
wend
haScript1.haTerminate
haScript2.haTerminate
haScript3.haTerminate
To execute this sample save the above code as .vbs file. Double click the saved file to execute. Multiple instances of HyperACCESS will be opened by the script.