Imports System.Net Imports Lavantech.Dns Module SimpleDNSLookupExample Sub Main() Try ' Setup timeout to 10 seconds SimpleDNSLookup.Timeout = 10000 ' Address lookup Dim addr As IPAddress = SimpleDNSLookup.GetIPAddress("www.google.com") SimpleDNSLookup.GetIPAddress("www.google.com") Console.WriteLine("GetIPAddress = " & addr.ToString()) ' Reverse lookup (Hostname from address) Dim hostName As String = SimpleDNSLookup.GetHostName(addr) Console.WriteLine("GetHostName = " & hostName) ' Mail Exchange Lookup Dim mx As String = SimpleDNSLookup.GetMailExchange("gmail.com") Console.WriteLine("GetMailExchange = " & mx.ToString()) ' Aliase Name lookup Dim cname As String = SimpleDNSLookup.GetCanonicalName("www.cnn.com") Console.WriteLine("GetCanonicalName = " & cname) ' Name Server Lookup Dim ns As String = SimpleDNSLookup.GetNameServerForDomain("hotmail.com") Console.WriteLine("GetNameServer = " & ns) ' Domain Admin Email Lookup Dim adminMB As String = SimpleDNSLookup.GetDomainAdminMailBox("hotmail.com") Console.WriteLine("GetDomainAdminMailBox = " & adminMB) ' IPv6 Address lookup Dim ipv6 As String = SimpleDNSLookup.GetIPV6AddressString("ipv6.bt.com") Console.WriteLine("GetIPV6Address = " & ipv6) ' Text information lookup Dim txt As String = SimpleDNSLookup.GetTextInformation("hotmail.com") Console.WriteLine("GetTextInformation = " & txt) Catch exp As Exception Console.WriteLine(exp.Message) Console.WriteLine(exp.StackTrace) End Try End Sub End Module