Ping em Vb.net

Autor: Rafael Maia

Fonte:http://rafaelfranklinmaia.blogspot.com/2009/12/ping-em-vbnet.html

Segue um código para executar uma operação de ping em um endereço remoto.
Essa funcionalidade é útil para testar a disponibilidade de um determinado serviço.


Dim Ping As Ping = New Ping()
Dim PingReply As PingReply = Ping.Send("127.0.0.1")
If PingReply.Status <> IPStatus.Success Then
     Response.write("Serviço fora do ar")
End If

É necessário importar os seguintes Namespaces:

Imports System.net
Imports System.net.NetworkInformation

Um abraço e até próxima!!