关闭

SecureCRT vbs脚本小记

299人阅读 评论(0) 收藏 举报
#$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)

End Sub


1、“crt.screen.WaitForString "username:",1”为等待控制台字符串出现时做相应处理,如果一成不变。

2、则可以使用“crt.sleep 2000”代替,sleep中参数为毫秒

另外:在脚本最后加入

for i=1 to 1000
for j=1 to 1000
for k=1 to 1000
crt.Screen.Send " " & chr(13)
crt.sleep 9000
next
next
next
可以解决telnet长时间无输入自动断开问题

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:21766次
    • 积分:383
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:7篇
    • 译文:1篇
    • 评论:6条
    最新评论