reto nº 1 solucion

@Echo OFF
Title Hotmail E-Mail IP Locator By Elektro H@cker (Solucion)
Setlocal Enabledelayedexpansion

:Start
Echo: Arrastra aqui el archivo de texto que contiene el codigo fuente del email... | MORE
Set /P Archivo=^>^>
If Not defined ARCHIVO (Goto :Start)

Echo+
For /F "Tokens=2-10 delims=[]" %%# in ('Type "%Archivo%" ^| Find "Originating"') do (
    Set "Ip=%%#"
    For /F "Tokens=2,* delims= " %%@ in ('NSLOOKUP "%%#" ^| Find "Nombre"') Do (Set "Hostname=%%@")
)

Echo:       [IP]:  %IP%        | MORE
Echo: [Hostname]:  %HOSTNAME%  | MORE
Pause