一个查看局域网在线IP的vbs脚本.doc

　　想统计一下。有多少在线IP在内网里面。其实好多工具都可以实现。感觉脚本可以可靠。 最好可以生成一个文本的。
　　代码如下:
　　strSubNet = "192.168.1."
　　Set objFSO= CreateObject("Scripting.FileSystemObject")
　　Set objTS = objfso.CreateTextFile("e:\PingResult.txt")
　　For i = 1 To 254
　　strComputer = strSubNet & i
　　blnResult = Ping(strComputer)
　　If blnResult = True Then
　　objTS.WriteLine "Ping " & strComputer & " success!"
　　End If
　　Next
　　objTS.Close
　　WScript.Echo "Done!"
　　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