>>>>>I came across this little snippet while surfing the net and thought some might find it useful. It give the user ip address.
>>>>>
>>>>>

>>>>>* Show local ip address
>>>>>IPSocket = CreateObject("MSWinsock.Winsock")
>>>>>IPAddress = IPSocket.LocalIP
>>>>>MessageBox ("Local IP = " + IPAddress)
>>>>>

>>>>
>>>>Hi John,
>>>>
>>>>Oh, that's sweet and easy.:-) The object that's returned has some other useful properties too, such the host name.
>>>
>>>Yeah, I found it while trying to do Windows Scripting Host. I havent' been able to create the WSH object. I don't suppose you would have a handle on how that's done?
>>
>>Hi John,
>>
>>Nope I don't. Sorry. If I run into anything, however, I'll keep you in mind.
>>
>>A couple of notes on the Winsock thing. For this to work, you'll have to have the MSWinsock ActiveX control installed. If you do, you can simply drop one of these on a form, and access the help file through there.
>
>
>Yeah, I thought I'd post the following on the FAQ section (at the recommendation of John Koziol.)
>
>* 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!")
>endif

I think it's a good idea. If I recall correctly, this question has come up several times in the past. You might want to document the other available properties as well.