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