1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
| @echo off
setlocal ENABLEDELAYEDEXPANSION
set Version=v2.0 (2012)
color 9B & mode con lines=15 cols=55
title -: IPSCAN %Version% by Unknown :-
set FileName=ScanIP_Unknown.csv
set /a ID=0
:Start
cls
echo.
echo -: IPSCAN %Version% by Unknown :-
echo.
echo ^> Entrer L^'adresse IP de début : A.B.C.D
echo.
set /p IPa=A:
set /p IPb=B:
set /p IPc=C:
set /p IPd=D:
echo.
if /i "%IPa%"=="" goto ErrIP
if /i "%IPb%"=="" goto ErrIP
if /i "%IPc%"=="" goto ErrIP
if /i "%IPd%"=="" goto ErrIP
set StartIP=%IPa%.%IPb%.%IPc%.%IPd%
echo.
echo %StartIP%
echo.
echo ^> Entrer L^'adresse IP de Fin : W.X.Y.Z
echo.
set /p IPw=W:
set /p IPx=X:
set /p IPy=Y:
set /p IPz=Z:
echo.
if /i "%IPw%"=="" goto ErrIP
if /i "%IPx%"=="" goto ErrIP
if /i "%IPy%"=="" goto ErrIP
if /i "%IPz%"=="" goto ErrIP
set LASTIP=%IPw%.%IPx%.%IPy%.%IPz%
echo.
echo %LASTIP%
Goto Process
:Process
echo [IP];[RESULTAT];[DATE];[HEURE] > !FileName!
cls
echo Scan From %StartIP% To %LASTIP%
for /L %%a in (%IPa%,1,%IPw%) do (
for /L %%b in (%IPb%,1,%IPx%) do (
for /L %%c in (%IPc%,1,%IPy%) do (
for /L %%d in (%IPd%,1,%IPz%) do (
set IP=%%a.%%b.%%c.%%d
call :PingIP !IP!
cls
echo.
echo -: IPSCAN !Version! by Unknown :-
echo.
echo ^> Stats: ID=^>!ID! , !TIME!
echo.
echo Scan From %StartIP% To %LASTIP%
echo.
echo ^> Initial IP Adress: [!StartIP!]
echo.
echo [ ... ]
echo.
echo ^> Current IP Adress: [!IP!] =^> [!PingResult!]
)
)
)
)
goto End
:End
cls
echo.
echo -: IPSCAN !Version! by Unknown :-
echo.
echo ^> Finished!
echo.
echo.
pause
Start %FileName%
exit
:ErrIP
cls
echo.
echo -: IPSCAN !Version! by Unknown :-
echo.
echo ^> ERROR: Invalid IP adress.
echo.
pause
goto Start
:PingIP
set PingIP=%1
for /F %%p in ('ping %PingIP% -n 1 ^| find /c ^"ponse^"') do set PingResult=%%p
if /i "%PingResult%"=="1" (
set PingResult=Active
) else (
set PingResult=Not Active
)
set /a ID=ID+1
echo !PingIP!;[!PingResult!];[!DATE!];[!TIME!]>>!FileName! |
Partager