Verificar que una IP o Servidor esté en SERVICIO

[totigo]

Hola a todos

No encontré el FAQ para publicar este Nuevo Tema

Quiero compratirles el siguiente codigo en VB .NET 2005, que permite verificar si una determinada ip de un servidor de base de datos o cualquier otro esta en SERVICIO. Aveces es bueno saber que nuestro servidor esta ONLINE! no! hehe! entonces ahi les va!

Código vb.net:

'Imports System.Net
 
        Dim ping As New System.Net.NetworkInformation.Ping
        Dim ip As IPAddress
        Dim contadorEspera As Integer
 
 
        ip = IPAddress.Parse("200.32.80.182") 'Servidor Web o DataBase
 
        'Evaluar si el servidor esta en SERVICIO
        While ping.Send(ip).Status <> IPStatus.Success And contadorEspera <> 5
            contadorEspera = contadorEspera + 1
        End While
 
 
        If ping.Send(ip).Status = IPStatus.Success Then
            System.Diagnostics.Debug.WriteLine("IP EN SERVICIO")
        Else
            System.Diagnostics.Debug.WriteLine("IP FUERA DE SERVICIO")
        End If