Script/Batch file that will ping from an input file and output the the response to a file (as IP x.x.x.x REPLIED or x.x.x.x NO RESPONSE)

Hi,

You can try this code.....

Const ForReading = 1
Const ForWriting = 2

' check whether script is run in CSCRIPT (DOS-Environment)
' if not then execute using CSCRIPT.EXE and close WSCRIPT.EXE
host = WScript.FullName
hostexe = lcase(mid(host, InstrRev(host, "\")+1))
if not hostexe = "cscript.exe" then
    ' error! We run in WSCRIPT, so lets re-launch in CSCRIPT!
    set wshshell = CreateObject("WScript.Shell")
    wshshell.run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
    'quit
    WScript.Quit
end If

'filenames for input/output
strComputerList = "ComputerList.txt"
strDefaultLogFile = "ping_results.csv"

' get access to input and output stream:
set input = WScript.StdIn
set output = WScript.StdOut


set wshobj = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set source = fso.OpenTextFile(strComputerList, ForReading)
Set target = fso.CreateTextFile(strDefaultLogFile, ForWriting)

' Read the list of computers to check
Do While source.AtEndOfStream <> True
      strComputer = source.Readline
      get_ping_state(strComputer)
Loop
target.close
source.close

Function get_ping_state(strComputer)
      strCmd = "ping " & strComputer & " -n 1"
      set objRun = wshobj.Exec(strCmd)
      Do While objRun.Status = 0
            wscript.sleep 50
      loop
      
      
Do While Not objRun.StdOut.AtEndOfStream
            strText =  objRun.StdOut.Readline
                  If InStr(strText, "Unknown host") > 0 Then
                       Wscript.Echo strComputer & ", Unknown host"
                        target.writeline strComputer  & ",Unknown host"
                  End If
                  if instr(strText, "Request timed out") > 0 then
                        Wscript.Echo strComputer & ", Request timed out"
                        target.writeline strComputer & ",Request timed out"
                  end If
                  if instr(strText, "Reply from") > 0 then
                        Wscript.Echo strComputer & ", Reply"
                        target.writeline strComputer & ",Reply"
                  end If
                  if instr(strText, "Ping request could not find host") > 0 then
                        Wscript.Echo strComputer & ", Unknown host"
                        target.writeline strComputer & ",Unknown host"
                  end if                  
Loop
End Function