Retrieving WAN IP address directly from a Linksys WRT64G Broadband Router

I was browsing groups earlier this week and noticed lots of folks wanting to retrieve their broadband router's WAN IP address without relying on an internet site.

Here's a VBScript that will do it from within Windows. It can be easily tweaked for other broadband routers.

Enjoy!

Dr. C. ____________________________________________________________________ SCRIPT: '============================================================ ' *Retrieve WAN IP* (c)2006 F.M. Covington, Lancanyon Labs '============================================================ 'This script retrieves the WAN IP address directly from a Linksys WRT64G broadband router. 'Replace default internal router IP address and password as necessary. '============================================================ Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://192.168.1.100/StaRouter.htm", True, "UserName","admin" xml.Send wscript.sleep 1500 x=15 IP = mid(xml.responsetext,instr(xml.responsetext,"var wan_ip = ")+14,x) do while instr(IP,"""") x=x-1 IP=mid(IP,1,x) loop wscript.echo "Current IP Address: "&vbcrlf& IP '=============================================================