Chek IP Komputer anda Lewat Visual Foxpro

IPcomp = CREATEOBJECT('MSWinsock.Winsock.1')
MESSAGEBOX(IPcomp.LocalIP,64+0,"Ini adalah IP address")
semoga bermanfaat....untuk anda