* getipaddress.prg * John Harvey * 9/28/98 * Leave IPSocket public to view all properties in the debug window. * I stumbled on this routine while trying to find information on subclassing * the WSH and thought it might be useful. 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!") endifCetin