Ping

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Const ForReading = 1
'定义输出结果
Set objTextFile = objFSO.OpenTextFile ("d:\Ping_Result.txt", ForAppending, True)
'定义服务器IP列表
Set ts = objFSO.OpenTextFile("d:\serverlist.txt", ForReading)

do until ts.AtEndOfStream '判断是否到文件末尾
IP = ts.readline
WQL = "Select * from Win32_PingStatus Where Address = '$IP'"
WQL = Replace(WQL,"$IP",IP)
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery(WQL,,48)

For Each objItem in colItems
If objItem.StatusCode = 0 Then
objTextFile.WriteLine IP & " " & "可以Ping通"
Else
objTextFile.WriteLine IP & " " & "无法Ping通"
End If
Next

loop
ts.close
msgbox "脚本执行完成,输出结果位于 d:\Ping_Result.txt"

posted on 2013-09-23 20:33  momingliu11  阅读(267)  评论(0编辑  收藏  举报