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