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

运行结果：