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

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

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

• 1、調用系統(tǒng)ping命令；

• 2、使用wmi查詢pingstate類處理。

  
  

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

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

對于以上調用，如果想對其進行過濾，可以考慮將運行結果重定向到文件，在讀到一個string中，查找其中是否有timeout或超時字符，判斷是否超時。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run調用一個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

關于“vbs ping實現(xiàn)的方式有哪些”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。

當前文章：vbsping實現(xiàn)的方式有哪些-創(chuàng)新互聯(lián)
標題來源：http://aaarwkj.com/article46/gjseg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、網(wǎng)站收錄、網(wǎng)站改版、響應式網(wǎng)站、外貿建站、服務器托管

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)