Trabaja esto para usted?

PUBLIC IPSocket
crlf=CHR(13)+CHR(10)
* Show local ip address
IPSocket = CREATEOBJECT("MSWinsock.Winsock")
IF TYPE('IPSocket')='O'
	IPAddress = IPSocket.LocalIP
	localhostname=IPSocket.localhostname
	remotehost=IPSocket.remotehost
	remotehostip=IPSocket.remotehostip
	MESSAGEBOX ("Local IP = " + IPAddress+crlf+"local host = "+localhostname;
		+crlf+"Remotehost = "+remotehost+crlf+"Remotehostip = "+remotehostip)
ELSE
	MESSAGEBOX ("Winsock Is Not Installed!")
ENDIF

* or

LOCAL lcTempFile, loWSH, lcLocalIP
lcTempFile="LocalIP.txt"
IF FILE(lcTempFile)		&&erase leftovers from old run
	ERASE (lcTempFile)
ENDIF
loWSH=CREATEOBJECT("Wscript.Shell")
loWSH.RUN("command /c ipconfig > "+lcTempFile,0,1)
IF FILE(lcTempFile)		&&read the file and parse it
	lcLocalIP=UPPER(FILETOSTR(lcTempFile))
	lcLocalIP=SUBSTR(lcLocalIP, AT('IP ADDRESS',lcLocalIP))
	lcLocalIP=SUBSTR(lcLocalIP, AT(':',lcLocalIP)+2)
	lcLocalIP=SUBSTR(lcLocalIP, 1, AT(CHR(13),lcLocalIP)-1)
	MESSAGEBOX(lcLocalIP)
ENDIF

Perdon si no entendiera.

>He estado tratando de obtener una dirección IP de usuarios que ingresan a un sistema, revise el programa registry.prg que se instala con el visual Fox, mas no me queda claro que libería debo de usuar. Tambien revise el archivo WIN32API y me encontre con una sección que trae la siguente linea.
>
>Declare Function NetWkstaGetInfo Lib "Netapi32.dll" (lpServer As Any, ByVal Level As Long, lpBuffer As Any) As Long
>
>Esto me hace suponer que la librería NETapi32 me propocinara la información que necesito mas como es una consulta con estructura me falta información de como funciona relamente estas llamadas.
>
>Les agradecería cualquier ayuda que me propocionaran.