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

继续等待出现特定字符，输入参数列表的工做目录