Dim autECLPSObj as Object Dim autECLScreenDescObj as Object Set autECLScreenDescObj = CreateObject("ZIEWin.autECLScreenDesc") Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName "A" autECLScreenDesObj.AddCursorPos 23, 1 autECLScreenDesObj.AddAttrib E8h, 1, 1, 2 autECLScreenDesObj.AddCursorPos 23,1 autECLScreenDesObj.AddNumFields 45 autECLScreenDesObj.AddNumInputFields 17 autECLScreenDesObj.AddOIAInhibitStatus 1 autECLScreenDesObj.AddString "LOGON", 23, 11, True autECLScreenDesObj.AddStringInRect "PASSWORD", 23, 1, 24, 80, False if (autECLPSObj.WaitForScreen(autECLScreenDesObj, 10000)) then msgbox "Screen reached" else msgbox "Timeout Occurred" end if