SecureCRT vbs指令碼小記
阿新 • • 發佈:2019-02-06
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Sub Main
'crt.session.Connect("/telnet 192.168.1.105")'
crt.screen.WaitForString "username:",1
crt.screen.send "admin" & chr(13)
crt.screen.WaitForString "password:",1
crt.screen.send "admin" & chr(13)
crt.screen.WaitForString "EIS>",1
crt.screen.send "en" & chr(13)
crt.screen.WaitForString "EIS#",1
crt.screen.send "^config" & chr(13)
crt.screen.WaitForString "EIS(config)#",1
crt.screen.send "debug sd" & chr(13)
crt.screen.WaitForString "EIS(config)#",1
crt.screen.send "ex" & chr(13)
crt.screen.WaitForString "EIS#",1
crt.screen.send "^ada" & chr(13)
crt.sleep 2000
crt.screen.send "turnon 255" & chr(13)
for j=1 to 1000
for k=1 to 1000
crt.Screen.Send " " & chr(13)
crt.sleep 9000
next
next
next
可以解決telnet長時間無輸入自動斷開問題
#$interface = "1.0"
crt.Screen.Synchronous = True
Sub Main
'crt.session.Connect("/telnet 192.168.1.105")'
crt.screen.WaitForString "username:",1
crt.screen.send "admin" & chr(13)
crt.screen.WaitForString "password:",1
crt.screen.send "admin" & chr(13)
crt.screen.WaitForString "EIS>",1
crt.screen.send "en" & chr(13)
crt.screen.WaitForString "EIS#",1
crt.screen.send "^config" & chr(13)
crt.screen.WaitForString "EIS(config)#",1
crt.screen.send "debug sd" & chr(13)
crt.screen.WaitForString "EIS(config)#",1
crt.screen.send "ex" & chr(13)
crt.screen.WaitForString "EIS#",1
crt.screen.send "^ada" & chr(13)
crt.sleep 2000
crt.screen.send "turnon 255" & chr(13)
End Sub
1、“crt.screen.WaitForString "username:",1”為等待控制檯字串出現時做相應處理,如果一成不變。
2、則可以使用“crt.sleep 2000”代替,sleep中引數為毫秒
另外:在指令碼最後加入
for i=1 to 1000for j=1 to 1000
for k=1 to 1000
crt.Screen.Send " " & chr(13)
crt.sleep 9000
next
next
next
可以解決telnet長時間無輸入自動斷開問題