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

    平時很少用到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