#$Language = "VBScript"
#$Interface = "1.0"
Sub Main
Dim host
host = "192.168.1.1"
Dim user
user="admin"
Dim password
password = "Admin@123"
cmd = "/SSH2 /L " & user & " /PASSWORD " & password & " /C 3DES /M MD5 " & host
crt.Session.Connect cmd
logpath = "C:\Users\xu_duo\Desktop\CmnetTool\cmnet\backup\"
crt.Session.LogFileName = logpath & "XX-192.168.1.1.-" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & "-" & Hour(Now) & "-" & Minute(Now) & ".txt"
crt.Session.Log True
Do while (crt.Screen.WaitForString
#$Interface = "1.0"
Sub Main
Dim host
host = "192.168.1.1"
Dim user
user="admin"
Dim password
password = "Admin@123"
cmd = "/SSH2 /L " & user & " /PASSWORD " & password & " /C 3DES /M MD5 " & host
crt.Session.Connect cmd
logpath = "C:\Users\xu_duo\Desktop\CmnetTool\cmnet\backup\"
crt.Session.LogFileName = logpath & "XX-192.168.1.1.-" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & "-" & Hour(Now) & "-" & Minute(Now) & ".txt"
crt.Session.Log True
Do while (crt.Screen.WaitForString