crt.Screen.Synchronous = True
Sub Main
crt.Session.Log False
Dim logfile
' logfile = "C:\ZEQO%Y%M%D%h%m.log"
' crt.Session.LogFileName = logfile

'crt.Session.Log True
dim user,password
user="***"
password="***"
dim a,i
i=0


a=array("GZHBSC10G",_
"GZHBSC11G",_
"GZHBSC12G",_
"GZHBSC13G",_
"GZHBSC14G",_
"GZHBSC15G",_
"GZHBSC16G",_
"GZHBSC17G",_
"GZHBSC19G",_
"GZHBSC20G",_
"GZHBSC21G",_
"GZHBSC22G",_
"GZHBSC23G",_
"GZHBSC24G",_
"GZHBSC25G",_
"GZHBSC26G",_
"GZHBSC27G",_
"GZHBSC29G",_
"GZHBSC31G",_
"GZHBSC32G",_
"GZHBSC33G",_
"GZHBSC35G",_
"GZHBSC36G",_
"GZHBSC37G",_
"GZHBSC38G",_
"GZHBSC39G",_
"GZHBSC40G",_
"GZHBSC41G",_
"GZHBSC42G",_
"GZHBSC43G",_
"GZHBSC48G",_
"GZHBSC49G",_
"GZHBSC50G",_
"GZHBSC51G",_
"GZHBSC54G",_
"GZHBSC55G",_
"GZHBSC57G",_
"GZHBSC63G",_
"GZHBSC64G",_
"GZHBSC65G",_
"GZHBSC66G",_
"GZHBSC67G",_
"GZHBSC68G",_
"GZHBSC86G",_
"GZHBSC88G")

crt.Session.Log False
logfile = "d:\LOG\LOG%Y%M%D_ZEAL.txt"
crt.Session.LogFileName = logfile
crt.Session.Log True

do while i<48
'crt.Session.Log False
'logfile = "d:\LOG\ZEEI%Y%M%D%h%m"+a(i)+".txt"
'crt.Session.LogFileName = logfile
'crt.Session.Log True
crt.Screen.Send "telnet "&a(i)& chr(13)
crt.Screen.WaitForString "ENTER USERNAME < " & chr(8) & " "
crt.Screen.Send user & chr(13)
crt.Screen.WaitForString "ENTER PASSWORD < " & chr(8) & " "
crt.Screen.Send password & chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "


if i<3then crt.Screen.Send "ZEAL:SEG=1&&512;" & chr(13)
if i<33 and i>2 then crt.Screen.Send "ZEAL:SEG=1&&660;" & chr(13)
if i<40 and i>32 then crt.Screen.Send "ZEAL:SEG=1&&2000;" & chr(13)
if i>39 then crt.Screen.Send "ZEAL:SEG=1&&3000;" & chr(13)
crt.Screen.WaitForString "< " & chr(8) & " "
crt.Screen.Send "ZZZ;" & chr(13)
crt.Screen.WaitForString "[gzwork@jx3cs1 " & chr(126) & "]$ "
i=i+1
LOOP
crt.Session.Log False

End Sub