【資料名稱】：小包檢查開啟查看

【資料作者】：laiss

【資料日期】：2013-6-18

【資料語言】：中文

【資料格式】：其它

【資料目錄和簡介】：

#$language = "VBScript"
#$interface = "1.0"
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="KEXUM"
password="cos"
dim a,i
i=0


a=array("GZHBSC10G",_
"GZHBSC11G",_
"GZHBSC13G",_
"GZHBSC14G",_
"GZHBSC16G",_
"GZHBSC17G",_
"GZHBSC19G",_
"GZHBSC20G",_
"GZHBSC21G",_
"GZHBSC23G",_
"GZHBSC24G",_
"GZHBSC25G",_
"GZHBSC26G",_
"GZHBSC31G",_
"GZHBSC32G",_
"GZHBSC33G",_
"GZHBSC35G",_
"GZHBSC36G",_
"GZHBSC38G",_
"GZHBSC39G",_
"GZHBSC40G",_
"GZHBSC41G",_
"GZHBSC42G",_
"GZHBSC43G",_
"GZHBSC55G",_
"GZHBSC63G",_
"GZHBSC65G",_
"GZHBSC66G")

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

do while i<=ubound(a)

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) & " "

crt.Screen.Send "ZW7M:FEA=3429:ON;" & 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