您的位置:首页 > 其它

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

2011-01-28 23:51 751 查看
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