I came across this little snippet while surfing the net and thought some might find it useful. It give the user ip address.
IPSocket = CreateObject("MSWinsock.Winsock")
IPAddress = IPSocket.LocalIP
MessageBox ("Local IP = " + IPAddress)
John Harvey
Shelbynet.com
"I'm addicted to placebos. I could quit, but it wouldn't matter." Stephen Wright