Foro de elhacker.net

@echo off

color 4f
title Escaneador de IPs Por Hendrix
echo.
echo.
echo.
echo.
echo.
echo.
echo                   *****************************************
echo                   *                                       *
echo                   *                                       *
echo                   *    ESCANEADOR DE IP BY HENDRIX        *
echo                   *                                       *
echo                   *                                       *
echo                   *****************************************
echo.
echo.
echo Pulsa una tecla para iniciar
pause > nul
:inisi
cls
echo Elige la opcion:
echo 1. Escanear una IP
echo 2. Ayuda Sobre este Programa
echo 3. Manual de NetBios
echo 4. Informe completo sobre tu PC
echo 5. Salir
set /p eleccio=
If %eleccio%==1 goto buskeda
If %eleccio%==2 goto help
If %eleccio%==3 goto manual
If %eleccio%==4 goto info
If %eleccio%==5 goto surti
:help
cls
echo Este Programa se una de la siguiente manera:
echo ------------------------------------------------------------------
echo Para introducir una IP se hace asi:
echo si tenemos esta IP: xx.yyy.zz.www solo tenemos
echo que poner esto: xx.yyy.zz el .www lo pondra el programa 
echo y escaneara del valor nº 1 al 255 de esa IP
echo para escanear otra IP vuelves al inicio y repites
echo el proceso
echo.
echo.
echo.
echo Presiona una tecla para salir
pause > nul
goto inisi
:buskeda
cls
echo 1. Escanear solo una IP
echo 2. Escanear un rango de IP del 1 al 255
set /p tria=
If %tria%==1 goto unip
If %tria%==2 goto dusip
:unip
cls
echo Introduce la IP a escanear:
set /p ipo=
nbtstat -A %ipo%
echo.
echo.
echo Presiona una tecla para salir
pause > nul
goto inisi
:dusip
cls
echo Introduce la IP:
set /p ip=
echo.
echo Escaneando...
echo.
for /L %%x IN (1,1,255) DO echo. && echo. && echo IP: %ip%.%%x && nbtstat -A %ip%.%%x
echo.
echo.
echo.
echo Si aqui abajo aparece la palabra NetBios hay resultados buenos!!
echo.
Find /I "NetBios"
echo Proceso Finalizado!!
echo.
echo.
echo. 
echo Presione una tecla para ir al menu
pause > nul
goto inisi
:manual
echo Manual NetBios On-Line (+ Programa busca IP's)
echo ---------------------------------------------------------------------
echo.
echo El Link al manual es este: http://miditones.iespana.es/netbios/
echo Es muy facil de entender....
echo espero que les sea de ayuda
echo Presione una tecla para volver al inicio
pause > nul
goto inisi
:info
cls
ipconfig | find /I "IP. . ." > ip.txt
set ips=
set masks=
FOR /F "tokens=1* delims=:" %%A IN (ip.txt) do set ips=%%B
echo %ips% > ip.txt
echo tu IP es: %ips%
echo.
echo Informe del Sistema:
systeminfo
echo.
echo Pulse una tecla para salir
pause > nul
del /s /q ip.txt
goto inisi
:surti
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                        Programa echo por Hendrix
echo.
echo              ************************************************
pause > nul
exit