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

Related Posts by Categories



Stumble This Fav This With Technorati Add To Del.icio.us Digg This Add To Reddit Add To Facebook Add To Yahoo

1 comments:

Deadwin said...

It is really a nice article for network programmer.

Post a Comment