【资料名称】:小包检查开启查看
【资料作者】: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
扫码关注5G通信官方公众号,免费领取以下5G精品资料
1、回复“LTBPS”免费领取《《中国联通5G终端白皮书》》
2、回复“ZGDX”免费领取《中国电信5G NTN技术白皮书》
3、回复“TXSB”免费领取《通信设备安装工程施工工艺图解》
4、回复“YDSL”免费领取《中国移动算力并网白皮书》
5、回复“5GX3”免费领取《 R16 23501-g60 5G的系统架构1》
6、回复“iot6”免费领取《【8月30号登载】物联网创新技术与产业应用蓝皮书——物联网感知技术及系统应用》
7、回复“6G31”免费领取《基于云网融合的6G关键技术白皮书》
8、回复“IM6G”免费领取《6G典型场景和关键能力白皮书》
|