@echo off
cls
set cont=0
title Ping Maker [v0.1] By ^<N0ZI3(FB^>
If exist "%~dp0IPList.log" (goto Read) else (goto Error)
 
:Read
for /f "useback tokens=*" %%L in ("%~dp0IPList.log") do (
     echo. & echo   Procesando %%L & echo.
     set "host=%%L"
     ping %%L >"%temp%\ping.log"
     call:SaveLog1
)
If not defined host (
     echo. & echo  ERROR: La lista de IP's est  vac¡a. & sleep 2
     echo. & echo Cerrando...
     sleep 5
     exit /b
)
echo. & echo Terminado.
del "%temp%\ping.log"
pause>nul
exit
 
:SaveLog1
If [%errorlevel%] == [0] set "opFile=%~dp0ping_OK.log"
If [%errorlevel%] == [1] set "opFile=%~dp0ping_Down.log"
(echo   Resultados de %host% & echo.)>>"%opFile%"
For /f "useback tokens=*" %%S in ("%temp%\ping.log") do (
     set "line=%%S"
     call:SaveLog2
)
If [%errorlevel%] == [0] (
     echo -------------------------------------------------------------------------------
     echo ------------------------------------------------------------------------------->>"%opFile%"
)
echo. >>"%opFile%"
goto:eof
 
:SaveLog2
If ["%line%"] neq [""] (
     echo %line%
     echo %line% >>"%opFile%"
) else (
     echo -------------------------------------------------------------------------------
     echo ------------------------------------------------------------------------------->>"%opFile%"
)
goto:eof
 
:Error
echo. & echo  ERROR: No se encontr¢ la lista de IP's (IPList.log).
echo  Debe crearla en el directorio actual y ejecutar
echo  nuevamente la aplicaci¢n. & sleep 2
echo. & echo  Cerrando...
sleep 10
exit /b