FoxPro/Visual FoxPro - FUNCION PARA OBTENER LA IP

Necesito saber si hay alguna funcion que permita obtener la ip de la maquina que estoy utilizando acualmente.

Estoy desarrollando un sistema multiusuario y

Mi idea es que al crear archivos temporales o consultas, estas se nombren igual en todas las estaciones, solamente identificados con el numero de ip de la maquina en curso. Asi me permitira ejecutar el mismo programa en varias estaciones.

O alguien tiene una mejor idea o sepa como se hace eso mas facilmente-.

tablatemporal = (Sys(3) + '.dbf')
asi te va a regresar un numero al azar

Puedes usar tambien:

? SUBSTR(SYS(2015), 3)
? SUBSTR(SYS(2015), 4)

Tambien esta rutina la envio el compañero: Ernesto Hernandez
Asunto: TRUCO : Como obtener la IP de una PC

RUN ping "NOM_PC" > c:\PingIp.TXT && Donde NOM_PC =Nombre de la PC y PingIP es el archivo donde se guardara el resultado
cTxt = FILETOSTR([c:\PingIp.TXT])
cTxt = SUBSTR(cTxt,AT("[",cTxt)+1)
? LEFT(cTxt,AT("]",cTxt) -1)