/* UberLinux - Portfolio */
Private Sub Command1_Click()
Dim strIP as string
Dim strName as string
strIP = Winsock1.LocalIP 'Captures IP Address and stores it
| home/ procedures/ stories/ archive/ links/ portfolio/ about/ |
|
strName = Winsock1.LocalHostName 'Captures
Host Name and stores
msgbox "Your IP Address is: " & strIP & vbCrLf & vbCrLf & _
"Your HostName is: " & Ucase(strName) 'Separates the
2 in a msgbox
End Sub
home/ procedures/ stories/ archive/ links/ portfolio/ about/
Revised 09/11/2006
Copyright © 2003-2006 uberlinux.org