@REM This script Checks Connection of IPs
@REM By Felipe Ferreira  18/04/2007

@echo off
:: Check Syntax and OS
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
:: Check command line
ECHO.%1 | FIND "?" >NUL
IF NOT ERRORLEVEL 1 GOTO Syntax
IF [%1]==[] GOTO Syntax
:: Check if TXT file exists
IF NOT EXIST "%~f1" GOTO Syntax

:: Keep variables local
SETLOCAL

::DEFINE VARIABLES (logfile)
del ipslog.TxT /q
set logfile=ipslog.TxT

:: Read variables from command line
@REM Get the Filename + Path of passed argument
SET TXTFile="%~f1"

:Run
cls
@echo.
@echo Retriving Servers from %TXTFile% please wait...
@echo.

:: Search the TXT file line by line
FOR /F "tokens=* delims=" %%A IN ('TYPE %TXTFile%') DO CALL :ParseINI "%%A"

@echo Finished Reading %TXTFile%

GOTO End

:Syntax
ECHO.
ECHO.
ECHO 
ECHO Pass a IP list .txt with one IP per or host per line
ECHO Example: checkips.bat list.txt 
ECHO.
@ECHO By Felipe Ferreira ff@ff.com (HP) 29/03/07 updated %DATE%
ECHO.
pause

:End
@echo Command Completed
@echo Output on the logfile : %logfile%.
pause
notepad %logfile%
@REM Clean Variables
ENDLOCAL
set IPS=
set logfile=
rem exit

::===== Go thru .TXT and set each line to a variable and execute; ===
:ParseINI
SET IPS="%~1"
::Clean the quotes from the servername
SET IPS=%IPS:"=%

:: Do the CMD
ECHO Checking SERVER : %IPS%
set ERRORLEVEL=0
@REM RUNS THE WHOIS COMMAND 
PING %IPS% | FIND "TTL=" >NUL
IF ERRORLEVEL 1     @ECHO #ERROR connecting to %IPS% >> %logfile%
IF NOT ERRORLEVEL 1 @ECHO Server %IPS% OK >> %logfile%