WMI中的Win32_PingStatus类(ping命令实现)
WMI中的Win32_PingStatus类(ping命令实现)
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:IP="jb51.net"WQL="Select*fromWin32_PingStatusWhereAddress='$I...

复制代码 代码如下:

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

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新vbs学习
热门vbs学习
脚本专栏子分类