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

更新时间：2011年01月28日 23:51:27 作者：

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

 
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

您可能感兴趣的文章:

Win32 PingStatus

VBScript教程第四课VBScript变量
变量是一种使用方便的占位符，用于引用计算机内存地址，该地址可以存储脚本运行时可更改的程序信息
2006-11-11
VBS教程：方法-Test 方法
VBS教程：方法-Test 方法...
2006-11-11
VBS教程：函数-LBound 函数
VBS教程：函数-LBound 函数...
2006-11-11
VBS如何察看或获得剪切板内容的脚本
用vbs查看剪切板内容的脚本，方法不错
2008-06-06
使用xcacls.vbs(cacls.exe)修改NTFS权限说明(中文版)
本分步指南介绍如何使用扩展的更改访问控制列表工具 (cacls.exe，对应的脚本文件是xcacls.vbs) 修改和查看文件或文件夹的 NTFS 权限。
2010-08-08
用vbs实现确定是否安装了某个特定的补丁
用vbs实现确定是否安装了某个特定的补丁...
2007-03-03
远程或本地获取系统信息的脚本RGIS.vbs
远程或本地获取系统信息的脚本RGIS.vbs...
2007-02-02
WMI 脚本高手不完全手册
要成为WMI脚本高手当要认识一下什么叫WMI啦，下面将介绍一下有关WMI的东西。
2009-08-08
VBS教程：方法-FileExists 方法
VBS教程：方法-FileExists 方法...
2006-11-11
VBS教程：函数-Date 函数
VBS教程：函数-Date 函数...
2006-11-11