Verificar si una IP o Servidor está Online


cable_red

Siempre es necesario consultar si es que nuestro servicio o servidor esta online para poder realizar las transacciones hacia el. Una de las maneras de hacer es la siguiente:

Imports System.Net

Dim ping As New System.Net.NetworkInformation.Ping
Dim ip As IPAddress
Dim contadorEspera As Integer

Private Function f_verifica_servicio() As Boolean

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
Return True
Else
Return False
End If

End Function

About these ads

Una respuesta a Verificar si una IP o Servidor está Online

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

A %d blogueros les gusta esto: