复制代码 代码如下:

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:.rootcimv2")

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