[El Sanchez]

Я так понял нужно получить внешний ip. Тогда пробуйте так:

Код:

@echo off
echo Set oHTML = CreateObject("MSXML2.XMLhttp")>"%~dp0getip.vbs"
echo oHTML.Open "GET", "http://www.whatismyip.com/automation/n09230945.asp", False>>"%~dp0getip.vbs"
echo oHTML.Send>>"%~dp0getip.vbs"
echo sText = oHTML.ResponseText>>"%~dp0getip.vbs"
echo WScript.Echo ^"^" ^& sText>>"%~dp0getip.vbs"
echo Set oHTML = Nothing>>"%~dp0getip.vbs"
echo WScript.Quit>>"%~dp0getip.vbs"
for /f %%a in ('%windir%\system32\cscript.exe //nologo "%~dp0getip.vbs"') do set prov=%%a
del /f /q "%~dp0getip.vbs" 1>nul 2>&1

P.S. На Висте не проверял, нет у меня ее.