SecureCRT SSH自动化采集优化脚本

#$Language = "VBScript"
#$Interface = "1.0"
Sub Main
Dim host ,stng
host = Array("192.168.1.1","192.168.1.2","192.168.1.2") '设备IP
Dim user
user="admin"
Dim password
password = "Admin@123"
Dim Count:Count = 0
For i = 0 To Ubound(host) '逐个循环
Count = Count + 1
cmd = "/SSH2 /L " & user & " /PASSWORD " & password & " /C 3DES /M MD5 " & host(i)
crt.Session.Connect cmd
if crt.Session.Connected = False Then '如果连接失败，关闭CRT
crt.quit
End if
logpath = "C:\Users\xu_duo\Desktop\CmnetTool\cmnet\backup\"
crt.Session.LogFileName = logpath & "XX市-" & host(i) & "-" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & "-" & Hour(Now) & "-" & Minute(Now) & ".txt"
crt.Session.Log True
Do while (crt.Screen.WaitForString("[Y/N]:",3)<>False)
crt.Screen.send "N" & VbCr
Loop
crt.Screen.Send VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "save" & VbCr
crt.Screen.WaitForString"[Y/N]"
crt.Screen.Send "y" & VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "dis cu" & VbCr
Do while (crt.Screen.WaitForString(" ---- More ----",3)<>False)
crt.Screen.Send " "
Loop
crt.Screen.Send VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "display clock"
crt.Screen.Send VbCr
crt.Screen.WaitForString ">"
crt.Session.Log False
crt.Session.Disconnect
Next
crt.quit
End Sub