FoxPro/Visual FoxPro - WinSock()

Me dijeron que con esa función podría obtener la dirección IP de cualquier máquina, pero la busqué en VFP6 y no la encuentro, no se cómo se hará entonces, si alguien pudiera ayduarme.

Para obtener la IP de la máquina local:

o=CreateObject("MSWinsock.Winsock")
? o.LocalIP

Para obtener la IP de otra máquina tenés que dejar un control en Listen en un puerto determinado:

o=CreateObject("MSWinsock.Winsock")

With o
.Protocol=sckTCPProtocol
.LocalPort=5000
.Listen()
EndWith

No podes obtener la IP de cualquier máquina en forma directa porque sino tendrías que hacer un broadcast de red.