爲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>" 要根據各自交換機上的主機名和命令提示符進行修改。