對于vbs中ping的實現(xiàn)可以通過兩種方式 ：

• 1、調(diào)用系統(tǒng)ping命令；
• 2、使用wmi查詢pingstate類處理。
  

1、調(diào)用系統(tǒng)ping命令

Set wshell = CreateObject("WScript.Shell")
wshell.run("ping 182.183.101.1",0.true)

對于以上調(diào)用，如果想對其進行過濾，可以考慮將運行結(jié)果重定向到文件，在讀到一個string中，查找其中是否有timeout或超時字符，判斷是否超時。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run調(diào)用一個bat，bat中寫：ping 192.168.101.1 -n 1 -w 1200

2、使用wmi查詢pingstate類處理：

'url = "www.baidu.com"
url = "119.75.217.109"
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
For Each objPing in colPings
MsgBox url & " responded to ping." & vbcrlf &_
"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_
"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_
"Bytes Sent: " & objPing.BufferSize & vbcrlf &_
"Time: " & objPing.ResponseTime & " ms"
Next

到此這篇關(guān)于vbs ping的實現(xiàn)示例的文章就介紹到這了,更多相關(guān)vbs ping內(nèi)容請搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站！

版權(quán)聲明：本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。