SecureCRT VBS腳本自動登陸服務器

腳本內容以下所示

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

crt.Screen.Synchronous = True
Sub Main
	'獲取會話的名字
	tab_title = crt.GetScriptTab().Caption
	arrs=split(tab_title," ")
	
	'等待出現字符 INPUT
	crt.Screen.WaitForString"INPUT"
	crt.Screen.Send arrs(0) & chr(13)
	
	crt.Screen.WaitForString"login"
	crt.Screen.Send "cd " & crt.Arguments(0) & chr(13)
End Sub

 

crt.GetScriptTab().Caption 是獲取會話的標題，好比"127.0.1.1 服務A"

等待屏幕出現特定的字符後，輸入從標題提取的IP

繼續等待出現特定字符，輸入參數列表的工做目錄