进入交换机后，在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>" 要根据各自交换机上的主机名和命令提示符进行修改。