WMI中的Win32_PingStatus類(ping命令實(shí)現(xiàn))

更新時間：2011年01月28日 23:51:27 作者：

平時很少用到ping命令，所以這個類也沒怎么用過，測試了一下，好像效率比ping要高。計算ping 100次jb51.net延遲的平均值。

 
IP = "jb51.net" 
WQL = "Select * from Win32_PingStatus Where Address = '$IP'" 
WQL = Replace(WQL,"$IP",IP) 
n = 0 : s = 0 
Do Until n = 100 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
Set colItems = objWMIService.ExecQuery(WQL,,48) 
For Each objItem in colItems 
If objItem.StatusCode = 0 Then 
s = s + objItem.ResponseTime 
n = n + 1 
End If 
Next 
Loop 
WScript.Echo "Average:" & s / n 

參考鏈接：Win32_PingStatus Class
原文：http://demon.tw/programming/wmi-win32_pingstatus.html

您可能感興趣的文章:

Win32 PingStatus

相關(guān)文章

VBS教程：VBScript 語句-With 語句
VBS教程：VBScript 語句-With 語句...
2006-11-11
使用 Iisext.vbs 啟用Web服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計算機(jī)上啟用 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下
2014-07-07
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs...
2007-02-02
用VBScript批量安裝網(wǎng)絡(luò)打印機(jī)和設(shè)置默認(rèn)打印機(jī)
假如你有幾十臺機(jī)器，幾臺打印機(jī)，共享網(wǎng)絡(luò)上有網(wǎng)絡(luò)打印機(jī)的安裝驅(qū)動，可是每臺電腦都點(diǎn)擊幾次驅(qū)動十分麻煩，本人做了個VBS，這樣就方便多了，拿來和大家分享，不足之處請見諒！
2009-03-03
教你用vbs實(shí)現(xiàn)微信自動發(fā)送消息功能
無意中接觸了vbs這個腳本感覺挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動發(fā)送消息功能的相關(guān)資料,文中通過實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下
2022-04-04
vbs整人代碼大集合多年的代碼收集
vbs整人代碼大集合，收集的比較全，喜歡的朋友可以參考下。不要搞破壞，學(xué)習(xí)vbs的朋友非常有幫助，死循環(huán)的使用比較多。
2011-02-02
VBS教程：方法-MoveFile 方法
VBS教程：方法-MoveFile 方法...
2006-11-11
VBS 路由重啟腳本
用vbs實(shí)現(xiàn)路由器的重啟，時間上就是利用vbs模擬按鍵輸出。
2009-03-03
VBS教程：屬性-Item 屬性
VBS教程：屬性-Item 屬性...
2006-11-11
VBS教程：對象-正則表達(dá)式(RegExp)對象
RegExp對象在VBScript中提供正則表達(dá)式支持功能，該對象有3個屬性和3個方法
2006-11-11