@echo off
TITLE PING SCAN by TheBigCrab -----------

set TT=100
set R=1
set A=192
set B=168
set C=1
set F=0

:init
cls

echo.
echo BATCH created for TheBigCrab
echo ====================================
echo / Actual configuracion             /
echo /	Primer bloque= %A%         /
echo /	Segundo bloque= %B%        /
echo /	Tercer bloque= %C%          /
echo /	Tiempo de espera (ms)= %TT% /
echo /	Repeticiones del ping= %R%   /
echo ====================================
echo IP:%A%.%B%.%C%.%F%
echo ==================================
echo 1-Configuracion de Red (tercer bloque)
echo 2-Barrido de red
echo 3-Mostrar captura
echo 4-Salir
echo 5-Conf de primer, segundo bloque, ping (-w y -n)
echo ==================================
echo.
set /P op= Escoja la opcion deseada: 
		if %op%== 1 goto config
		if %op%== 2 goto barrido
		if %op%== 3 goto Mostrar
		if %op%== 4 goto Salir
		if %op%== 5 goto pal
		if %op%== %op% goto error

:error
cls
echo ¡ERROR!
pause
goto init

:config
	cls
	echo Configuración del rango de la IP:
	echo Nombre de red actual == %A%.%B%.%C%.%F%
	echo.
	echo Introduzca una nueva red (ultimo bloque =0)
	echo.
	set /P C=Nº tercer bloque:
	echo Ha introducido la IP: %A%.%B%.%C%.%F%
	pause
	goto barrido

:barrido 
	cls
	echo ESCANEAR RED %A%.%B%.%C%.%F% (pulse para continuar)
	pause >nul
	FOR  /L  %%F IN (1, 1, 255) DO ping -n %R% -w %TT% %A%.%B%.%C%.%%F | FIND "TTL=" >> "%CD%"\IPSCANRESULTS.txt
	goto Mostrar

:Mostrar
	cls
	arp -a
	more "%CD%"\IPSCANRESULTS.txt
	echo ------------------------------------------------------------
	pause
	goto init

:Salir
	cls
	exit

:pal
	cls
	echo.
	set /P A=Introduze el valor del primer bloque:
	set /P B=Introduze el valor del segundo bloque:
	set /P C=Introduze el valor del Tercer bloque:
	set /P TT=Introduze el valor de espra del ping (ms):
	set /P R=Introduze el numero de repeticiones por cada direccion:
goto init