My.Computer.Name
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