SecureCRT中不同窗口顺序执行命令的脚本
2011-05-17 | 9:54# $language = “VBScript”
# $interface = “1.0″'脚本开始
Sub Main()
'从左到右激活每一个已经连接上的会话,并输入相关命令
'第一个连接的会话
Set objCurrentTab1 = crt.GetTab(1)
objCurrentTab1.Activate
If objCurrentTab1.Session.Connected = True then
objCurrentTab1.Screen.Send “相关命令1″ & chr(13)
objCurrentTab1.Screen.WaitForString “-> “
objCurrentTab1.Screen.Send “相关命令2 ” & chr(13)
objCurrentTab1.Screen.WaitForString “-> ”
objCurrentTab1.Screen.Send “相关命令3 ” & chr(13)
objCurrentTab1.Screen.WaitForString “-> ”
End If
'第二个连接的会话
Set objCurrentTab2 = crt.GetTab(2)
objCurrentTab2.Activate
If objCurrentTab2.Session.Connected = True then
objCurrentTab2.Screen.Send “相关命令1″ & chr(13)
objCurrentTab2.Screen.WaitForString “-> “
objCurrentTab2.Screen.Send “相关命令2 ” & chr(13)
objCurrentTab2.Screen.WaitForString “-> “
objCurrentTab2.Screen.Send “相关命令3″ & chr(13)
objCurrentTab2.Screen.WaitForString “-> “
objCurrentTab2.Screen.Send “相关命令4″ & chr(13)
End if
'脚本结束
End Sub












最新评论