System name and IP Address

Private Sub GetIPAddress()

Dim strHostName As String
Dim strIPAddress As String

strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub