Pinging using ASP.NET 2.0 and VB .NET

This tutorial will show you how to ping a hostname/ip using the .NET System.Net class, ASP.NET 2.0 and VB.NET


The .NET Framework offers a number of types that makes accessing resources on the network easy to use.
To perform a simple ping, we will need to use the System.Net, System.Net.Network.Information, System.Text namespaces.

imports System.Net; imports System.Net.NetworkInformation; imports System.Text;

We'll put our code in the btnSubmit_Click() event.

When the btnSubmit_Click() event fires it creates a new Ping object. We can then execute the Send method of this object to send a ping to the host specified in our text box. Executing this method also returns a PingReply object which we can use to gather information such as the Address, Roundtrip Time, TTL, and Buffer Size.

Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click Try lblStatus.Text = "" Dim ping As Ping = New Ping() Dim pingreply As PingReply = ping.Send(txtHost.Text) txtPing.Text &= "Address: " & pingreply.Address.ToString() & Constants.vbCr txtPing.Text &= "Roundtrip Time: " & pingreply.RoundtripTime & Constants.vbCr txtPing.Text &= "TTL (Time To Live): " & pingreply.Options.Ttl & Constants.vbCr txtPing.Text &= "Buffer Size: " & pingreply.Buffer.Length.ToString() & Constants.vbCr Catch err As Exception lblStatus.Text = err.Message End Try

The front end .aspx page looks something like this:

<table width="600" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc"> <tr> <td width="100" align="right" bgcolor="#eeeeee" class="header1">Hostname/IP:</td> <td align="center" bgcolor="#FFFFFF"> <asp:TextBox ID="txtHost" runat="server"></asp:TextBox> &nbsp;&nbsp; <asp:Button ID="btnSubmit" runat="server" OnClick="btnSubmit_Click" Text="Submit" /></td> </tr> <tr> <td width="100" align="right" bgcolor="#eeeeee" class="header1">Ping Results:</td> <td align="center" bgcolor="#FFFFFF"> <asp:TextBox ID="txtPing" runat="server" Height="66px" TextMode="MultiLine" Width="226px"></asp:TextBox>&nbsp;<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 Imports System.Net.NetworkInformation Imports System.Text Partial Public Class _Default : Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click Try lblStatus.Text = "" Dim ping As Ping = New Ping() Dim pingreply As PingReply = ping.Send(txtHost.Text) txtPing.Text &= "Address: " & pingreply.Address.ToString() & Constants.vbCr txtPing.Text &= "Roundtrip Time: " & pingreply.RoundtripTime & Constants.vbCr txtPing.Text &= "TTL (Time To Live): " & pingreply.Options.Ttl & Constants.vbCr txtPing.Text &= "Buffer Size: " & pingreply.Buffer.Length.ToString() & Constants.vbCr Catch err As Exception lblStatus.Text = err.Message End Try End Sub End Class