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

复制代码 代码如下: IP = "my.lmcjl.com" WQL = "Select * from Win32_PingStatus Where Address = '$IP'" WQL = Replace(WQL,"$IP",IP) n = 0 : s = 0 Do Until n = 100 Set objWMIService = GetObject(&quot 0 Comments

复制代码 代码如下:


IP = "my.lmcjl.com"
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

本文链接：https://my.lmcjl.com/post/17515.html

展开阅读全文

相关文章

4 评论

留下您的评论.