Varianta 1 (cu Winsock OCX):

File/New/Class. Scrie winsock in Class Name, la Based On selectezi OleControl, bagi si numele vcx-ului in care vrei sa stea, apoi Ok. Din lista care apare in fereastra urmatoare selectezi Microsoft Winsock Control. Ok si si salvezi.

In aplicatie, faci urmatoarele:

oWinsock = NewObject("numeclasa","numevcx")
? oWinsock.LocalIP

Varianta 2 (cu parsing pe text):

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