Set haWin32 = CreateObject("HAWin32")
Set haScript = haWin32.haInitialize("test")

cr = Chr(13)

haScript.haSizeHyperACCESS 3
haScript.haOpenSession "session.HAW"
haScript.haConnectSession 0
haScript.haWaitForConnection 1, 100000

haScript.haWaitForPrompt "Login: "
haScript.haTypeText "username" & cr
haScript.haWaitForPrompt "Password: "
haScript.haTypeText "password" & cr

haWaitForPrompt "some prompt>"
haTypeText "some command"&cr

haScript.haTerminate

To execute this sample save the above code as .vbs file. Double click the saved file to execute. HyperACCESS will be opened by the script.

Return to sample script index

Hilgraeve