Hummm esa info va a estar dificil de sacar, porque no la tiene la computadora que estas usando, esa info la tiene el modem (cable o adsl) por lo tanto la compu no le puede preguntar al modem cual es la IP.
Una chapuza que se me ocurre asi al vuelo, es utilizar el webclient de FiveWin para llamar a la pagina
www.whatismyip.com, y luego con un memoread buscar la IP en el texto devuelto dentro.
Ffuncky tiene un componente que te devuelve todas las direcciones IP que tiene el equipo, pero no se si se incluye la publica de internet
oFuncky := TOLEAUTO():NEW("funcky")
aIP := {}
x := 1
DO WHILE ! EMPTY(oFuncky:IpAddress(x))
AADD(aIP,oFuncky:IpAddress(x))
x++
ENDDO
MsgList(aIP)
