How to use vbs to implement a script to view the local area network online IP

This article is about how to use vbs to implement a script to view the IP of a local area network online. Xiaobian thinks it is quite practical, so share it with everyone for reference. Let's follow Xiaobian and have a look.

The code is as follows:

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

Thank you for reading! About "how to use vbs to achieve a view local area network online IP script" this article is shared here, I hope the above content can be of some help to everyone, so that we can learn more knowledge, if you think the article is good, you can share it to let more people see it!