华域联盟 vbs WMI中的Win32_PingStatus类(ping命令实现)

WMI中的Win32_PingStatus类(ping命令实现)

复制代码 代码如下:

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

您可能感兴趣的文章:

本文由 华域联盟 原创撰写:华域联盟 » WMI中的Win32_PingStatus类(ping命令实现)

转载请保留出处和原文链接:https://www.cnhackhy.com/16099.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部