 
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)文章

VBScript教程第四課VBScript變量
變量是一種使用方便的占位符，用于引用計(jì)算機(jī)內(nèi)存地址，該地址可以存儲(chǔ)腳本運(yùn)行時(shí)可更改的程序信息
2006-11-11
VBS教程：方法-Test 方法
VBS教程：方法-Test 方法...
2006-11-11
VBS教程：函數(shù)-LBound 函數(shù)
VBS教程：函數(shù)-LBound 函數(shù)...
2006-11-11
VBS如何察看或獲得剪切板內(nèi)容的腳本
用vbs查看剪切板內(nèi)容的腳本，方法不錯(cuò)
2008-06-06
使用xcacls.vbs(cacls.exe)修改NTFS權(quán)限說(shuō)明(中文版)
本分步指南介紹如何使用擴(kuò)展的更改訪(fǎng)問(wèn)控制列表工具 (cacls.exe，對(duì)應(yīng)的腳本文件是xcacls.vbs) 修改和查看文件或文件夾的 NTFS 權(quán)限。
2010-08-08
用vbs實(shí)現(xiàn)確定是否安裝了某個(gè)特定的補(bǔ)丁
用vbs實(shí)現(xiàn)確定是否安裝了某個(gè)特定的補(bǔ)丁...
2007-03-03
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...
2007-02-02
WMI 腳本高手不完全手冊(cè)
要成為WMI腳本高手當(dāng)要認(rèn)識(shí)一下什么叫WMI啦，下面將介紹一下有關(guān)WMI的東西。
2009-08-08
VBS教程：方法-FileExists 方法
VBS教程：方法-FileExists 方法...
2006-11-11
VBS教程：函數(shù)-Date 函數(shù)
VBS教程：函數(shù)-Date 函數(shù)...
2006-11-11