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