The following code works for me

lnLoadTimeout = 20		&& seconds
loIE = Createobject("internetexplorer.application")
*loIE.Visible = .T.
loIE.Navigate("http://whatismyip.com/automation/n09230945.asp")
* Wait for load to complete
lnSeconds = SECONDS()
DO WHILE (loIE.Busy OR loIE.ReadyState <> 4) ;
		AND (SECONDS() - lnSeconds) < lnLoadTimeout
	DOEVENTS
ENDDO

lcIP = "Unknown"
IF TYPE("loIE.Document") = "O"
	lcIP = loIE.Document.body.innerText
ENDIF

? lcIP 
loIE.Quit()

>I tried the following code but then no IP is returned. Please advise.
>
<snip>