Saca IP´s -HGP-

Bueno estaba aburrido y vi un scaner de puertos en bathc y se me ocurrio hacer un saca ip para webs.

obio q si hacemos ping nos saldra la ip de la web q sea lo que hic fue que con for no molestac todas esas letras y solo mostrac la ip. jeje

aca el code

Código:

@echo off
mode con cols=40 lines=7
color a&title saca ip
:wb
cls&echo.  la web donde decea sacar la ip:
set /p laweb=
if not defined laweb goto wb
for /f "tokens=5 delims= " %%a in ('ping %laweb% -n 1') do (set ip=%%a&goto Ver)
:Ver
if "%ip:~0,1%"=="[" (
cls&echo.La ip de %laweb% es:&echo.        %ip%
) else (
cls
echo.
echo        No se encontro servidor
)
set laweb=&pause >nul
goto wb

sugerencias aceptadas.