...even simpler (and more reliable) with the other site...
Code:
$=SetOption("WrapAtEOL","ON")
$=SetOption("ASCII","ON")
 
$oIE = CreateObject("internetexplorer.application")
$oIE.Visible = 0
$oIE.Navigate("http://checkip.dyndns.org/")
While $oIE.busy AND $oIE.readystate <> 4 AND @ERROR = 0 Loop
$oDoc=$oIE.document
$sHTML=$oDoc.body.innerText
$oIE.Quit()
$oIE = 0
 
; Strip IP Address
$sIP=SubStr($sHTML,InStr($sHTML,':')+2)
$sIP ?