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

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

 

 

 

 

来源：https://my.oschina.net/u/4193646/blog/3095686