25 ene. 2010

Saber si un equipo esta en red

Hola ,antes que nada una disculpa por no esta al pendiente de este blogg que inicio, pero he tenido muchisimo trabajo, lo bueno es que tengo mas material para compartir con ustedes, no duden en hacer las preguntas que necesiten.

' verifica que hay conexión a internet
If My.Computer.Network.IsAvailable = False Then
MsgBox("No hay conexión a red, se guarda la información en archivo", MsgBoxStyle.Critical)
Exit Sub
End If
On Error Resume Next

'guardamos en la variable la direccion del ping
El_Ping = (My.Computer.Network.Ping("NombreDelEquipo"))

'Acá mandamos los mensajes para las 2 posibilidades
If El_Ping = False Then
'si no se pudo acceder ,avisamos
MsgBox("El servidor no está disponible.", MsgBoxStyle.Critical, "Error")
Else
'MsgBox("Servidor disponible.", MsgBoxStyle.Information, "Aviso")

End If




No hay comentarios:

Publicar un comentario en la entrada