Almacenar ip despues de un ping

[Ismaw34]

Ya lo solucione gracias a los usuarios que hacen batch, saque la solucion de el programa de utiles (De no se que autor) pero se lo agradezco igual

Código (dos) [Seleccionar] Expandir

@echo off
title http://ismaw34host.no-ip.info/ - Modificador del archivo de hosts
cls
set a=echo
%a% Bienvenido, se va a modificar el archivo de hosts de WinXP (32 bits)
%a% Asegurese que al modificar, no exista otra linea de host: l2auth.lineage2.com o l2testauthd.lineage2.com
pause
goto Opciones

:Opciones
cls
%a% Opciones:
%a% 1 - No estoy seguro de no tener l2auth.lineage2.com o l2testauthd.lineage2.com
%a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
%a% 2 - Escribir el host
%a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
%a%     el escribir host)
%a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
%a%     escribir el host, anteriormente, para usar esta opcion)
%a% 5 - Salir
set /p Opc=Elige una opcion:
IF %Opc%==1 goto Comprueba
IF %Opc%==2 goto Escribir
IF %Opc%==3 goto Restaurar
IF %Opc%==4 goto Reescribir
IF %Opc%==5 goto Salir
IF %Opc%=="" goto error

:error
%a% No ha escrito ninguna opcion, escriba un numero
pause
goto Opciones

:Comprueba
%a% Abriendo hosts
attrib -r %windir%\system32\drivers\etc\hosts
cmd /c notepad %windir%\system32\drivers\etc\hosts
%a% Archivo cerrado, pulsa una tecla para volver al menu
attrib +r %windir%\system32\drivers\etc\hosts
pause
goto Opciones

:Escribir
%a% Haciendo un backup del archivo original
cd %windir%\system32\drivers\etc
del hosts_Ismaw34.bak
copy hosts c:\
cd c:\
ren hosts hosts_ismaw34.bak
copy hosts_Ismaw34.bak %windir%\system32\drivers\etc
del hosts_ismaw34.bak
cd %windir%\system32\drivers\etc
attrib hosts_Ismaw34.bak +r
%a% Escribiendo el host
attrib hosts -r
echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
ping ismaw34host.no-ip.info > IP_ping.txt
FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a

:func
set var=%1
set var=%var::=%
echo %var% L2auth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
echo %var% L2testauth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
del /q IP_ping.txt
attrib hosts +r
%a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
Pause
%a% Fin de la modificacion, y gracias por elegir nuestro servidor.
%a% Recuerde que si tiene mas de 1 servidor a elegir, borre o añada # delante de la linea.
pause
goto Salir

:Restaurar
%a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
cd %windir%\system32\drivers\etc
attrib hosts_Ismaw34.bak -r
attrib hosts -r
del hosts
ren hosts_ismaw34.bak hosts
attrib hosts +r
%a% Archivo restaurado
pause
goto Salir

:Reescribir
%a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
cd %windir%\system32\drivers\etc
attrib hosts_Ismaw34.bak -r
attrib hosts -r
del hosts
ren hosts_ismaw34.bak hosts
attrib hosts +r
%a% Archivo restaurado
%a% Haciendo un backup del archivo original
cd %windir%\system32\drivers\etc
copy hosts c:\
cd c:\
ren hosts hosts_ismaw34.bak
copy hosts_ismaw34.bak %windir%\system32\drivers\etc
del hosts_ismaw34.bak
cd %windir%\system32\drivers\etc
attrib hosts_ismaw34.bak +r
%a% Escribiendo el host
attrib hosts -r
echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info">> %windir%\system32\drivers\etc\hosts
ping ismaw34host.no-ip.info > IP_ping.txt
FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func2 %%a

:func2
set var=%1
set var=%var::=%
echo %var% L2auth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
echo %var% L2testauth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
del /q IP_ping.txt
attrib hosts +r
%a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
Pause
%a% Fin de la modificacion, y gracias por elegir nuestro servidor.
%a% Recuerde que si tiene mas de 1 servidor a elegir, borre o añada # delante de la linea.
pause
goto Salir

:Salir
%a% Para resolver sus dudas y leer lar reglas internas del servidor vaya a http://ismaw34host.no-ip.info/ y registrese
%a% Created by: Ismaw
pause
exit

He aqui mi resultado, gracias a la comunidad entera. 
Saludos

[Ismaw34]

Tengo un problema al intentar acer variables en el archivo, a mi me funciona bien, pero a otros usuarios le da error, o la ip le sale "destino"

Aqui el bat:

Código (dos) [Seleccionar] Expandir

@echo off
title http://ismaw34host.dyndns.info/ - Modificador del archivo de hosts v3b
cls
set a=echo
set win=%windir%\system32\drivers\etc
set menu=Opciones
%a% Bienvenido, se va a modificar el archivo de hosts
%a% Asegurese que al modificar, no exista otra linea de host: l2authd.lineage2.com o l2testauthd.lineage2.com
pause
goto %menu%

:Opciones
cls
%a% Modificador de hosts para WinXP, WinVista, Win2003, WinNT o Win2000
%a% Opciones:
%a% 1 - No estoy seguro de no tener l2authd.lineage2.com o l2testauthd.lineage2.com
%a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
%a% 2 - Escribir el host
%a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
%a%     el escribir host)
%a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
%a%     escribir el host, anteriormente, para usar esta opcion)
%a% 5 - Salir
%a% 6 - Tengo Win98, Win95 o WinME, que he de hacer?
set /p Opc=Elige una opcion:
IF %Opc%==1 goto Comprueba
IF %Opc%==2 goto Escribir
IF %Opc%==3 goto Restaurar
IF %Opc%==4 goto Reescribir
IF %Opc%==5 goto Salir
IF %opc%==6 goto WinB
IF %Opc%=="" goto error

:Opciones2
cls
%a% Modificador de hosts para Win98, Win95 o WinME
%a% Opciones:
%a% 1 - No estoy seguro de no tener l2authd.lineage2.com o l2testauthd.lineage2.com
%a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
%a% 2 - Escribir el host
%a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
%a%     el escribir host)
%a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
%a%     escribir el host, anteriormente, para usar esta opcion)
%a% 5 - Salir
%a% 6 - Tengo WinXP, WinVista, Win2003, WinNT o Win2000, que he de hacer?
set /p Opc=Elige una opcion:
IF %Opc%==1 goto Comprueba
IF %Opc%==2 goto Escribir
IF %Opc%==3 goto Restaurar
IF %Opc%==4 goto Reescribir
IF %Opc%==5 goto Salir
IF %opc%==6 goto Wina
IF %Opc%=="" goto error

:Wina
set win=%windir%\system32\drivers\etc
set menu=Opciones
goto %menu%

:Winb
set Win=%windir%
set menu=Opciones2
goto %menu%

:error
%a% No ha escrito ninguna opcion, escriba un numero
pause
goto %menu%

:Comprueba
%a% Abriendo hosts
attrib -r %win%\hosts.
cmd /c notepad %win%\hosts.
%a% Archivo cerrado, pulsa una tecla para volver al menu
attrib +r %win%\hosts.
PAUSE >nul
goto %menu%

:Escribir
%a% Haciendo un backup del archivo original
cd %win%
del hosts_Ismaw34.bak
copy hosts c:\
cd c:\
ren hosts hosts_ismaw34.bak
copy hosts_Ismaw34.bak %win%
del hosts_ismaw34.bak
cd %win%
attrib hosts_Ismaw34.bak +r
%a% Escribiendo el host
attrib hosts -r
echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
ping ismaw34host.dyndns.info > IP_ping.txt
FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a

:func
set var=%1
set var=%var::=%
echo %var% L2authd.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
echo %var% L2testauthd.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
del /q IP_ping.txt
attrib hosts +r
%a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
Pause
%a% Fin de la modificacion, y gracias por elegir nuestro servidor.
pause
goto Salir

:Restaurar
%a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
cd %win%
attrib hosts_Ismaw34.bak -r
attrib hosts -r
del hosts
ren hosts_ismaw34.bak hosts
attrib hosts +r
%a% Archivo restaurado
pause
goto Salir

:Reescribir
%a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
cd %win%
attrib hosts_Ismaw34.bak -r
attrib hosts -r
del hosts
ren hosts_ismaw34.bak hosts
attrib hosts +r
%a% Archivo restaurado
%a% Haciendo un backup del archivo original
cd %win%
copy hosts c:\
cd c:\
ren hosts hosts_ismaw34.bak
copy hosts_ismaw34.bak %win%
del hosts_ismaw34.bak
cd %win%
attrib hosts_ismaw34.bak +r
%a% Escribiendo el host
attrib hosts -r
echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.dyndns.info">> %win%\hosts.
ping ismaw34host.dyndns.info > IP_ping.txt
FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a

:Salir
%a% Para resolver sus dudas y leer lar reglas internas del servidor vaya a http://ismaw34host.no-ip.info/ y registrese
%a% Created by: Ismaw
pause
exit

Me podis comprovar el error... o orientarme?
Gracias a todos.... Saludos