Weno  aki  les  dejo  uno  de  mis  jugetes  en  BATCH!!!  la  funcion  como  obtener  la  Ip  Public  de  nuestra  PC  8)
weno  en este  caso  utilizo  la  pagina  www.showmyip.com  utilizando  el  GET.exe

Descarga  del  Get.exe
http://w17.easy-share.com/1700694154.html

@echo off
setlocal enabledelayedexpansion
pushd %windir%\system32
if not exist get.exe (call:info " No se encuentra  el archivo get.exe  sugiero una  descarga" "                 imposible realizar la operacion..." 16 "** ERROR **" && exit) else (
get www.showmyip.com ipp.txt
ping 127.0.0.1 -n 3 >nul
for /f  "tokens=8 delims= " %%a in ('find /I " Connection" ipp.txt') do (call:gett "%%a")
)
 
:gett
set ipp=%1
if %1. NEQ . (call:info " Tu ip public es : !ipp:~1,-1! " "        CONGRATULATIONs" 48 "**** wIzArD ****") else (call:info "Problemas con la pagina q usamos" "  no  esta  activa!!! " 16 "** ERROR **")
del ipp.txt >nul
exit
 
:info
echo wzr=%1 ^& Chr(13) ^& %2 >%temp%\winfo.vbs
echo msgbox wzr,%3,%4 >>%temp%\winfo.vbs
start %temp%\winfo.vbs
ping 127.0.0.1 -n 2 >nul
del %temp%\winfo.vbs >nul
goto:EOF
 

Ojo!!  la  pagina  al  veces  no  esta  activa   es  por  eso  q puse  una  exception.. de  Error
aunke  pueden   hacerlo  con  cualkier...  otra    page.
claro  el  codigo seria  distinto..  8)

salu2-->

set local sirve para guardar una variable permanentemente aunque cierres la shell