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