VBS脚本：一次性把多个命令向所有CRT窗口发送

云中雷

       看过task关于CRT的系统教程后，受益非浅。近一段时间在研究如何使用CRT，在一朋友帮忙下，我发现编写CRT的VBS脚本更能提高工作效率，可以代替大部分的人工输入。如我们用模拟器开若干路由器后，如何一次性向所有路由器发送多个相同的命令。按task教程的方法，使用CRT的交互窗口手工一次次输入命令；我觉得还不是很方便，如果编写一个VBS脚本，再做一个按钮来调用此脚本，我们打开CRT窗口后只要点一下，就可以把先前编写的命令向所有窗口发送。附上脚本，内有注释，大家只要模拟器开若干路由器，然后用CRT来连接后，再在CRT中调用此脚本就知道效果如何。

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

Sub Main()
   
    Dim nIndex
    '声明变量nIndex
    For nIndex = 1 to crt.GetTabCount
    '变量nIndex赋值等于当前CRT打开的窗口
        Set objCurrentTab = crt.GetTab(nIndex)
        '设置当前窗口
        objCurrentTab.Activate
        '激活当前窗口
        
        '以下是向窗口发送的命令
        objCurrentTab.Screen.Send "no" & vbCR
        objCurrentTab.Screen.Send "" & vbCR
        crt.sleep 100
        objCurrentTab.Screen.Send "" & vbCR
        crt.sleep 100
        objCurrentTab.Screen.Send "" & vbCR
        objCurrentTab.Screen.Send "en" & vbCR
        objCurrentTab.Screen.Send "config ter" & vbCR
        objCurrentTab.Screen.Send "no ip domain lookup" & vbCR
        objCurrentTab.Screen.Send "line con 0" & vbCR
        objCurrentTab.Screen.Send "logging synchronous" & vbCR
        objCurrentTab.Screen.Send "exec-timeout 0 0" & vbCR
        objCurrentTab.Screen.Send "exit" & vbCR
        objCurrentTab.Screen.Send "hostname R"
        
    Next
    '循环语句，与FOR相对应

End Sub

linda.!

感谢分享~~
沙发占了！

AmilyWyb

技术帖啊 。。看不懂。自觉顶了吧。

wuxiaohan

牛人啊~~~~顶了！！~

bookpig

支持！……

亮晶晶

强烈支持。顶了。

小皮球

谢谢LZ的分享，这样能帮到更多的人了。

jiachao

哇，太厉害了，楼主。 要不以前都还得每个窗口调用一次命令集。
这个脚本怎么与CRT关联起来呢？

明天¤晴天℃

有认真研究哦  谢谢楼主的分享

喵喵

小诀窍，嘿嘿。