Public Class MainClass
Public Shared Sub Main()
Dim objEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Dim strIP As String = CType(objEntry.AddressList.GetValue(0), System.Net.IPAddress).ToString
System.Console.WriteLine(strIP)
End Sub
End Class