這篇文章將為大家詳細(xì)講解有關(guān)vbs ping實(shí)現(xiàn)的方式有哪些，小編覺得挺實(shí)用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

站在用戶的角度思考問題，與客戶深入溝通，找到中江網(wǎng)站設(shè)計與中江網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、國際域名空間、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋中江地區(qū)。

對于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)

對于以上調(diào)用，如果想對其進(jìn)行過濾，可以考慮將運(yùn)行結(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實(shí)現(xiàn)的方式有哪些”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。

網(wǎng)頁題目：vbsping實(shí)現(xiàn)的方式有哪些-創(chuàng)新互聯(lián)
標(biāo)題鏈接：http://weahome.cn/article/gjseg.html