A vbs script for viewing LAN online IP addresses

CopyCodeThe Code is as follows: strsubnet = "192.168.1 ."
Set objfso = Createobject ("scripting. FileSystemObject ")
Set objts = objfso. createtextfile ("E: \ pingresult.txt ")

For 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 ob1_miservice = GetObject ("winmgmts: \. \ Root \ cimv2 ")
Set colitems = ob1_miservice. 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
Next
End Function