快捷導(dǎo)航

vbs ping實(shí)現(xiàn)的兩種方式

更新時(shí)間：2020年03月31日 10:56:20 作者：longlongway2012

這篇文章主要介紹了vbs ping實(shí)現(xiàn)的兩種方式，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧

對(duì)于vbs中ping的實(shí)現(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)

對(duì)于以上調(diào)用，如果想對(duì)其進(jìn)行過濾，可以考慮將運(yùn)行結(jié)果重定向到文件，在讀到一個(gè)string中，查找其中是否有timeout或超時(shí)字符，判斷是否超時(shí)。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run調(diào)用一個(gè)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的實(shí)現(xiàn)示例的文章就介紹到這了,更多相關(guān)vbs ping內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: