Ms-Dos - hacer ping a una lista de ip y guardar los resultados up y down

@echo off

SET Out=C:\Tmp\Resultado

if exist %Out% del %Out%

FOR /F %%a in (Lista.IP.txt) do call Pingar %%a

goto :eof

:Pingar

    echo. Probando ping %1>>%OUT%

    ping %1 >>>%OUT%

    echo %ErrorLevel%>>>%OUT%

    goto :eof

@echo off

set Out=C:\Tmp\Resultado

if exist %Out% del %Out%

FOR /F "delims=; tokens=1,2" %%a in (Lista.IP.txt) do call :Pingar %%a "%%b"

goto :eof

:Pingar

    set Nomb=%2

    set Nomb=%Nomb:~1,-1%

    echo. Probando ping %1 - %Nomb%>>%Out%

    ping %1>>%Out%

    echo.>>%Out%

    echo.-- Resultado del ping: %ErrorLevel% >>%Out%

    echo.>>%Out%

    echo.-------------------------------------------->>%Out%

    echo.>>%Out%

    goto :eof

10.162.15.25;Jesús Piros de España

10.145.2.16;Aitor Tilla

10.145.2.11;Alberto Mate