为SecureCRT做脚本实现在交换机上自动ping服务器网卡

进入交换机后，在SecureCRT中点击执行脚本，找到 文件.vbs ，脚本内容如下

#$Language="VBScript"
#$Interface="1.0"
crt.Screen.Synchronous=True
Sub Main()
Dim num
For num = 1 To 40 Step 1
crt.Screen.Send "ping 192.168.100." & num & chr(13)
crt.Screen.WaitForString "Switch>"
crt.Sleep 500
Next
End Sub

实现在交换机上自动ping 192.168.100.1~40的IP。
其中 "Switch>" 要根据各自交换机上的主机名和命令提示符进行修改。