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("[Y/N]:",3)<>False)
             crt.Screen.send "N" & VbCr
          Loop
        crt.Screen.Send 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
crt.quit
End Sub