SecureCRT SSH自动化采集脚本

#$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