Ping Network Computer in VB.Net

"Ping" is very basic utility for every network programmer. Here we will discuss ping a computer in Network using VB.Net.

We have two methods for pinging a computer.

Method 1: Here we will use VB.Net NetworkInformation NameSpace.

Public Sub PingStatus(ByVal strComputer As String)

        Dim pingSender As Ping = New Ping()
        Dim options As PingOptions = New PingOptions()

        options.DontFragment = True

        'Create a buffer of 32 bytes of data to be transmitted
        Dim data As String = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
        Dim buffer As Byte() = Encoding.ASCII.GetBytes(data)
        Dim timeout As Integer = 120
        Dim reply As PingReply = pingSender.Send(strComputer, timeout, buffer, options)

        If (reply.Status = IPStatus.Success) Then
            MessageBox.Show("Ping Successed.")
        Else
            MessageBox.Show("Ping Faild.")
        End If

End Sub 

Method 2: Here we are using .Net inbuilt functionality for Ping a Computer.

Public Sub Ping(ByVal strComputer As String)

        If (My.Computer.Network.Ping(strComputer)) Then

            MessageBox.Show("Ping Successed.")
        Else
            MessageBox.Show("Ping Faild.")

        End If

End Sub