FoxPro/Visual FoxPro - obtener mi ip en visual fox

Hola:
Existe alguna funcion que pueda obtener la direccion ip de mi compu y guardarla en un registro o un textbox para luego mandarla por mail ?

Gracias

loSock = CREATEOBJECT('MSWinsock.Winsock.1')
Thisform.text1.value = loSock.LocalIP &&Si el textbox se llama asi
Thisform.refresh()

Gracias... Es justo lo que necesito Gracias de nuevo

strComputer = "."
objWMIService = GetObject("winmgmts:\\" +strComputer + "\root\CIMV2")
colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
SET PRINTER TO ip.txt
SET PRINTER ON
For Each objItem in colItems
lcDefaultIPGateway = objItem.DNSDomain
IF !ISNULL(lcDefaultIPGateway)
? "-----------------------------------"
? "Win32_NetworkAdapterConfiguration instance"
? "-----------------------------------"
? "DefaultIPGateway: " + objItem.DefaultIPGateway(0)
? "Description: " + objItem.Description
? "DHCPEnabled: "
?? objItem.DHCPEnabled
? "DHCPLeaseExpires: " + objItem.DHCPLeaseExpires
? "DHCPLeaseObtained: " + objItem.DHCPLeaseObtained
? "DHCPServer: " + objItem.DHCPServer
? "DNSDomain: " + objItem.DNSDomain
? "DNSHostName: " + objItem.DNSHostName

? "IPAddress: IPv4: " + objitem.IPAddress(0)+ " - IPv6: " + objitem.IPAddress(1)
? "IPSubnet: " + objItem.IPSubnet(0)

? "MACAddress: " + objItem.MACAddress

ENDIF
ENDFOR
SET PRINTER TO
SET PRINTER OFF


Ademas de sacarte el IP tanto en version 4 como en 6 ademas saca el MacAddress

Hola Raúl lo ejecuto me genera el .txt pero no me muestra nada

Que puede ser