【分享】查看局域网在线IP的vbs脚本

'输入本网吧网段 例：1网段 "192.168.1." 
strSubNet=inputbox("请输入本局域网所在的网段" & vbcrlf & "例如:1网段，则输入:192.168.1." & vbcrlf & "切记：ip地址网段后面有个点.","敌情侦察器-请输入侦察条件!",0)
Set objFSO= CreateObject("Scripting.FileSystemObject") 
Set   WshNetwork = WScript.CreateObject("WScript.Network")
Set objTS = objfso.CreateTextFile("D:\ onlinePC.txt") 
'文件保存位置 默认D盘
For i = 1 To 254 
'IP地址的起止范围
strComputer = strSubNet & i 
blnResult = Ping(strComputer) 
If blnResult = True Then 
objTS.WriteLine "" &   WshNetwork.ComputerName    & strComputer & "  目前还活着" 
Else
objTS.WriteLine "" & strComputer & " 已经挂掉" 
End If 
Next 
objTS.Close
msgbox "老大，敌情已经侦察完毕"
Set Shell=CreateObject("Wscript.Shell")
Shell.Run "notepad.exe D:\ onlinePC.txt"
'文件夹带空格的得改成 "notepad.exe " & """" & "D:\Program Files\asfd adf.txt" & """"
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

strSubNet = inputbox("请输入本局域网所在的网段" & vbcrlf & "","敌情侦察器-请输入侦察条件!",0,0)
Set objFSO= CreateObject("Scripting.FileSystemObject") 
'文件保存位置 默认D盘
Set objTS = objfso.CreateTextFile("D:\ onlinePC.txt") 
For i = 1 To 100  
strComputer = strSubNet & i 
blnResult = Ping(strComputer) 
If blnResult = True Then 
objTS.WriteLine ""   & strComputer & "  目前还活着" 
End If 
Next 
objTS.Close 
WScript.Echo "老大，敌情已经侦察完毕" 
Set Shell=CreateObject("Wscript.Shell")
Shell.Run "notepad.exe D:\ onlinePC.txt"
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