securecrt使用vbs脚本向多个tabs窗口发送带变量的命令

问题：

使用securecrt时，同时打开多个会话窗口。

现在需要向多个窗口中发送类似的命令，但包含一些变量，如向会话窗口1中发送

ping -c 1 127.0.0.1

向会话窗口2中发送：

ping -c 2 127.0.0.1

解决方法：

1. 使用vbs脚本，获取各个会话状态，如果是active状态，发送命令

2. 使用for循环，对各个窗口发送 ping -c i 127.0.0.1

脚本：

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

for i=1 to 2
Set CurrentTab = crt.GetTab(i)
CurrentTab.Activate
If CurrentTab.Session.connected = True Then
'send ping command and return carriage
CurrentTab.Screen.Send "ping -c " & i & " 127.0.0.1 " & vbCr
crt.Sleep 5000
CurrentTab.Screen.Send Chr(26)  'send ctrl+z
End if
Next

运行结果：