Public Function GetIPAddress() As String Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName) Return h.AddressList.GetValue(0).ToString End Function