WMI中的Win32
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10VBS中的正则表达式的用法大全 <font color=red>原创&
- 01-10ntiIframe.vbs用于批量清除被添加到文件中的恶意代码
- 01-10Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
- 01-10使用VBScript 中的类组织开发
- 01-10用vbs列出注册表中 Run 项中的所有项目
- 01-10用vbs计算某个词在日志文件中的出现次数
- 01-10VBS ArrayList Class vbs中的数组类
- 01-10用vbs实现对文本文件中的项计数
- 01-10用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
- 01-10用vbs实现取消隐藏文件夹中的所有文件