SecureCRT中使用VBs腳本自動telnet登陸

查看SecureCRT幫助文檔：

Help-> Help Topics->Scripting -> Script Objects Reference -> Session Object

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
    for i = 0 to 100
    crt.Session.Disconnect
    crt.Session.Connect("/TELNET 192.168.1.1")
    crt.Screen.WaitForString "login:"
    crt.Screen.Send "root" & chr(13)
    crt.Screen.WaitForString "Password:"
    crt.Screen.Send "123456" & chr(13)
    crt.Screen.WaitForString "root@server:" 
    crt.Screen.Send "df" & chr(13)
    crt.Screen.WaitForString "root@server:" 
    crt.sleep 1000
    next
End Sub

上述腳本也可以把登陸部分放在for循環外面，只是在一台機器上反復執行一條命令隔1秒.

#$language = "VBScript"
#$interface = "1.0"
 
crt.Screen.Synchronous = True
 
' This automatically generated script may need to be
' edited in order to work correctly.
 
Sub Main
         Dim i
         i = 10
         Do While i > 0
                   crt.Screen.Send "df" & chr(13)
                   crt.Screen.WaitForString "root@server:"
                   crt.Screen.Send "echo ok" & chr(13)
                   crt.Screen.WaitForString "root@server:"           
                   crt.Sleep 1000
                   i=i-1
         Loop
End Sub

提示符root@ubuntu:~#,可以寫成crt.Screen.WaitForString "root@ubuntu:" 
crt.sleep 1000  'sleep 1 seconds

也可以自己錄制一個腳本:Script-> Start Recording Script,停止，保存，運行即可。

CRT也支持Python，更加靈活。