@REM This script Checks if our servers are in a BlackList
@REM By Felipe Ferreira 18/04/2007

@echo off
@REM Check Syntax and OS

:: Check Windows version
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 blackips.TxT /q
set logfile=blackips.TXT

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

:Run
cls
@echo.
@echo Retriving IPs 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 %INIFile%

GOTO End

:Syntax
ECHO.
ECHO.
ECHO 
ECHO Pass a IP list .txt with one IP per line and last line with EOF
ECHO Example: checkips.bat ips.txt 
ECHO The Output on the logfile should be only of those ips
ECHO.
ECHO *****REQUIRES WHOIS TOOL***** -> Recomended http://www.alessandropilotti.com/whois/
echo.
@ECHO The query is done in 29 blacklists FROM (completewhois.com) servers:
echo.
@ECHO bogons.dnsiplists.completewhois.com
@ECHO hijacked.dnsiplists.completewhois.com
@ECHO invalidipwhois.dnsiplists.completewhois
@ECHO sbl.spamhaus.org
@ECHO xbl.spamhaus.org
@ECHO bl.spamcop.net
@ECHO spews-level1
@ECHO spews-level2
@ECHO dnsbl.sorbs.net
@ECHO dnsbl.ahbl.org
@ECHO ircbl.ahbl.org
@ECHO dnsbl-1.uceprotect.net
@ECHO dnsbl-2.uceprotect.net
@ECHO dnsbl-3.uceprotect.net
@ECHO list.dsbl.org
@ECHO multihop.dsbl.org
@ECHO unconfirmed.dsbl.org
@ECHO auto.dnsbl.njabl.org
@ECHO data.dnsbl.njabl.org
@ECHO cbl.abuseseat.org
@ECHO dnsbl.wpbl.pc9.org
@ECHO virbl.dnsbl.bit.nl
@ECHO lists.spam.sux.com
@ECHO no-more-funn.moensted.dk
@ECHO blacklist.spambag.org
@ECHO clients.spamlists.tqmcube.com
@ECHO dynamic.spamlists.tqmcube.com
@ECHO relays.spamlists.tqmcube.com
@ECHO asiaspam.spamlists.tqmcube.com
ECHO.
ECHO.
@ECHO By Felipe Ferreira fferreira@attiva.biz (HP) 29/03/07 updated %DATE%
ECHO.
pause


:End
@echo Command Completed
@echo Opening %logifle%
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:"=%
rem IF "%IPS%"=="EOF" GOTO Run2
:: Store line in variable

ECHO Checking IP : %IPS%
@REM RUNS THE WHOIS COMMAND 
@echo Waiting...
PING 1.1.1.1 -n 2  -w 40000 >NUL
whois -r rbl.completewhois.com:43 %IPS% >> %logfile%
@REM whois -r rbl.completewhois.com:43 85.33.2.12