[转贴] ping某个网段的VBS脚本

VBScript

'这是一个关于ping某个网段的程序
strSubNet = "192.168.21."   '定义一个网段
Set objFSO= CreateObject("Scripting.FileSystemObject")   '创建objFOS文件对象
Set objTS = objfso.CreateTextFile("c:\PingResult.txt")   '由文件对象objfos创建objts这个文件
For i = 1 To 254     '定义从1开始到254结束的IP地址段
    strComputer = strSubNet & i  '定义一个IP地址的标准文本
    blnResult = Ping(strComputer)  '调用自定义Ping函数来试试上面的IP的机器是否开机,返回一个布尔值,前提是对方机器没有防火墙等限制.
        If blnResult = True Then      '如果通则把结果写入文件对象流中.
            objTS.WriteLine "Ping " & strComputer & " success!"
        End If
Next
objTS.Close    '文件对象流关闭
wScript.Echo "Done!"   '提示任务完成
'如下是一个标准的ping 应用程序,可在MS vbedit中找到文本
Function Ping(strComputer)
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & strComputer & "'")
    For Each objItem In colItems
        Select case objItem.StatusCode
                    Case 0
                          Ping = True
                    Case Else
                          Ping = False
         End select
         Exit For
    Next
End Function
复制代码

http://xyg23456.blog.51cto.com/230495/351050