Dim autPSObj as Object Dim autECLScreenDescObj as Object Set autECLScreenDescObj = CreateObject("ZIEWin.autECLScreenDesc") Set autPSObj = CreateObject("ZIEWin.autECLPS") autPSObj.SetConnectionByName "A" autECLScreenDesObj.AddCursorPos 23, 1 autECLScreenDesObj.AddAttrib E8h, 1, 1, 2 autECLScreenDesObj.AddNumFields 45 autECLScreenDesObj.AddNumInputFields 17 autECLScreenDesObj.AddOIAInhibitStatus 1 autECLScreenDesObj.AddString "LOGON", 23, 11, True autECLScreenDesObj.AddStringInRect "PASSWORD", 23, 1, 24, 80, False if (autECLScreenReco.IsMatch(autPSObj, autECLScreenDesObj)) then msgbox "matched" else msgbox "no match" end if