WMI中的Win32_PingStatus类(ping命令实现)
摘要：复制代码代码如下: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
【WMI中的Win32_PingStatus类(ping命令实现)】相关文章：
★ VBS教程：VBscript属性-IgnoreCase 属性
★ VBScript 打造自己的远程CMDShell附使用教程
★ vbscript logparser的ISA2004 Web流量报告
★ VBS教程：VBscript属性-FirstIndex 属性
★ 将WMI中的DateTime类型转换成VBS时间的函数代码
上一篇：
VBS的字符串及日期操作相关函数
下一篇：
运行同一目录下的可执行程序的VBS代码