How to perform a DNS query using ASP.NET 2.0 and VB .NET

Categories

Advanced Technologies

User Interface and Themes

Navigator: Home - Tutorials - Network - Performing a DNS query using ASP.NET 2.0 and VB .NET

Performing a DNS query using ASP.NET 2.0 and VB .NET

ASP.NET Network Tutorial

This tutorial will show you how to perform a DNS query using the .NET System.Net class, ASP.NET 2.0 and VB.NET

Download the Full Working Version of this Project written with Visual Studio.NET VB.NET 2005 Here!

Looking for the C#.NET 2005 Version? Click Here!

Looking for more ASP.NET Tutorials? Click Here!

The .NET Framework offers a number of types that makes accessing networked resources easy.

To perform a DNS query, we will need to first import the System.Net namespace. The System.Net namespace contains the Dns.GetHostByName method, IPHostEntry container class and IPAddress class we will use to perform our DNS query.

imports System.Net;

We'll put our code in a subroutine called DNSLookup() and call it from the btnSubmit_Click() event.

When the btnSubmit_Click() event fires it calls our DNSLookup() function. This function creates a new instance of the IPHostEntry container class and assigns it a host entry returned from the Dns.GetHostByName method. It then create an array of IPAddress objects using the AddressList of our host entry object. After that, it iterates through each ip and adds it to the text box.

Protected Sub DNSLookup(ByVal domain As String)

Try

'performs the DNS lookup
Dim he As IPHostEntry = Dns.GetHostEntry(domain)
Dim ip_addrs As IPAddress() = he.AddressList
txtIPs.Text = ""
For Each ip As IPAddress In ip_addrs
txtIPs.Text = ip.ToString()

Next ip

Catch ex As System.Exception

lblStatus.Text = ex.ToString()

End Try

End Sub

We have two textboxes, a submit button, and a label on the front end for user interaction. The front end .aspx page looks something like this:

<table>

<tr>

<td align="right" bgcolor="#eeeeee" class="header1">Domain Name:</td>
<td bgcolor="#FFFFFF"><asp:textbox ID="txtDomain" runat="server"></asp:textbox><br />
<asp:button ID="btnSubmit" runat="server" OnClick="btnSubmit_Click" Text="Submit" /></td>

</tr>
<tr>

<td width="100" align="right" bgcolor="#eeeeee" class="header1">IP Address(es)
Assigned to Domain Name:</td>
<td bgcolor="#FFFFFF">  <br />
<asp:textbox ID="txtIPs" runat="server"></asp:textbox><br />
<br />
<asp:label ID="lblStatus" runat="server"></asp:label></td>

</tr>

</table>

The flow for the code behind page is as follows:

Imports System.Net
Partial Public Class _Default : Inherits System.Web.UI.Page

Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)

DNSLookup(txtDomain.Text)

End Sub

Protected Sub DNSLookup(ByVal domain As String)

Try

Catch ex As System.Exception

lblStatus.Text = ex.ToString()

End Try

End Sub