DnsClient Class

public class DnsClient : Component

Public Class DnsClient
   Inherits Component

public ref class DnsClient : public Component

Shows how to look up for DNS records by host address.

using System;
using System.Windows.Forms;
using ComponentPro.Net;

...

// Create a new DnsClient object.
DnsClient client = new DnsClient();
// Retrieve all resource records.
DnsQueryMessage replyMessage = client.Lookup("gmail.com", DnsRecordType.ALL);

if (replyMessage != null)
{
    if (replyMessage.Answers.Count > 0)
    {
        Console.WriteLine("Answer Records:");
        foreach (IDnsResourceRecord r in replyMessage.Answers)
        {
            Console.WriteLine("  " + r.ToString());
        }
    }

    if (replyMessage.Authorities.Count > 0)
    {
        Console.WriteLine("");
        Console.WriteLine("Authority Records:");
        foreach (IDnsResourceRecord r in 
            replyMessage.Authorities)
        {
            Console.WriteLine("  " + r.ToString());
        }
    }

    if (replyMessage.AdditionalRecords.Count > 0)
    {
        Console.WriteLine("");
        Console.WriteLine("Additional Records:");
        foreach (IDnsResourceRecord r in 
            replyMessage.AdditionalRecords)
        {
            Console.WriteLine("  " + r.ToString());
        }
    }
}

Imports ComponentPro.Net

...

' Create a new DnsClient object. 
Dim client As New DnsClient()
' Retrieve all resource records. 
Dim replyMessage As DnsQueryMessage = client.Lookup("gmail.com", DnsRecordType.ALL)

If replyMessage IsNot Nothing Then 
    If replyMessage.Answers.Count > 0 Then 
        Console.WriteLine("Answer Records:")
        For Each r As IDnsResourceRecord In replyMessage.Answers
            Console.WriteLine("  " & CType(r, Object).ToString())
        Next r
    End If 
 
    If replyMessage.Authorities.Count > 0 Then 
        Console.WriteLine("")
        Console.WriteLine("Authority Records:")
        For Each r As IDnsResourceRecord In replyMessage.Authorities
            Console.WriteLine("  " & CType(r, Object).ToString())
        Next r
    End If 
 
    If replyMessage.AdditionalRecords.Count > 0 Then 
        Console.WriteLine("")
        Console.WriteLine("Additional Records:")
        For Each r As IDnsResourceRecord In replyMessage.AdditionalRecords
            Console.WriteLine("  " & CType(r, Object).ToString())
        Next r
    End If 
End If

Reference