WMI中的Win32_PingStatus类

平时很少用到ping命令，所以这个类也没怎么用过，测试了一下，好像效率比ping要高。计算ping 100次demon.tw延迟的平均值。

IP = "demon.tw"
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

随机文章:

1. 用JavaScript实现PHP的urldecode函数
2. VBS任意进制转换（实现PHP的base_convert函数）
3. NDS上的FC模拟器nesDS
4. PT作弊分析
5. 用VBS检测U盘插入和弹出事件（二）

这篇文章发布于 2010年12月8日，星期三，22:40，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。