Public Shared Sub DisplayDnsAddresses() 
    Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
    Dim adapter As NetworkInterface
    For Each adapter In  adapters

        Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties()
        Dim dnsServers As IPAddressCollection = adapterProperties.DnsAddresses
        If dnsServers.Count > 0 Then
            Console.WriteLine(adapter.Description)
            Dim dns As IPAddress
            For Each dns In  dnsServers
                Console.WriteLine("  DNS Servers ............................. : {0}",dns.ToString() )
            Next dns
        End If
    Next adapter

End Sub 'DisplayDnsAddresses

public static void DisplayDnsAddresses()
{
    NetworkInterface[] adapters  = NetworkInterface.GetAllNetworkInterfaces();
    foreach (NetworkInterface adapter in adapters)
    {

        IPInterfaceProperties adapterProperties = adapter.GetIPProperties();
        IPAddressCollection dnsServers = adapterProperties.DnsAddresses;
        if (dnsServers.Count > 0)
        {
            Console.WriteLine(adapter.Description);
            foreach (IPAddress dns in dnsServers)
            {
                Console.WriteLine("  DNS Servers ............................. : {0}", 
                    dns.ToString());
            }
            Console.WriteLine();
        }
    }
}

void DisplayDnsAddresses()
{
   array<NetworkInterface^>^adapters = NetworkInterface::GetAllNetworkInterfaces();
   System::Collections::IEnumerator^ myEnum11 = adapters->GetEnumerator();
   while ( myEnum11->MoveNext() )
   {
      NetworkInterface ^ adapter = safe_cast<NetworkInterface ^>(myEnum11->Current);
      IPInterfaceProperties ^ adapterProperties = adapter->GetIPProperties();
      IPAddressCollection ^ dnsServers = adapterProperties->DnsAddresses;
      if ( dnsServers->Count > 0 )
      {
         Console::WriteLine( adapter->Description );
         System::Collections::IEnumerator^ myEnum12 = dnsServers->GetEnumerator();
         while ( myEnum12->MoveNext() )
         {
            IPAddress ^ dns = safe_cast<IPAddress ^>(myEnum12->Current);
            Console::WriteLine( "  DNS Servers ............................. : {0}", 
               dns->ToString());
         }
      }
   }
}

public static void DisplayDnsAddresses()
{
    NetworkInterface adapters[] = NetworkInterface.GetAllNetworkInterfaces();
    for (int iCtr1 = 0; iCtr1 < adapters.get_Length(); iCtr1++) {
        NetworkInterface adapter = (NetworkInterface)adapters.get_Item(iCtr1);
        IPInterfaceProperties adapterProperties = 
            adapter.GetIPProperties();
        IPAddressCollection dnsServers = adapterProperties.get_DnsAddresses();
        if (dnsServers.get_Count() > 0) {
            Console.WriteLine(adapter.get_Description());
            for (int iCtr2 = 0; iCtr2 < dnsServers.get_Count(); iCtr2++) {
                IPAddress dns = 
                    (IPAddress)dnsServers.get_Item(iCtr2);
                Console.WriteLine("  DNS Servers........................."
                    + ".... : {0} ", dns.ToString() );
            }
        }
    }
} //DisplayDnsAddresses