首页 / 编程脚本 / 一个查看局域网在线IP的vbs脚本

复制代码 代码如下:
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:\. ootcimv2"）
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