Cómo: Determinar si un equipo remoto está disponible en Visual Basic

Artículo
10/07/2008

Actualización: noviembre 2007

Puede utilizar el método My.Computer.Network.Ping (Método) para determinar si un equipo remoto o el host está disponible. El servidor se puede especificar por dirección URL, nombre de equipo o dirección IP. No incluya http:// al especificar una dirección URL.

El método Ping no es un método con seguridad para determinar la disponibilidad de un equipo remoto: el puerto ping del equipo de destino puede estar desactivado, o la solicitud de ping puede resultar bloqueada por un firewall o un enrutador.

Nota:
Las opciones disponibles en los cuadros de diálogo, y los nombres y las ubicaciones de los comandos de menú que se ven podrían diferir de lo que se describe en la Ayuda, en función de los valores de configuración o de edición activos. Esta página de Ayuda se ha redactado teniendo en cuenta la Configuración general de desarrollo. Para cambiar la configuración, elija la opción Importar y exportar configuraciones en el menú Herramientas. Para obtener más información, vea Valores de configuración de Visual Studio.

Las opciones disponibles en los cuadros de diálogo, y los nombres y las ubicaciones de los comandos de menú que se ven podrían diferir de lo que se describe en la Ayuda, en función de los valores de configuración o de edición activos. Esta página de Ayuda se ha redactado teniendo en cuenta la Configuración general de desarrollo. Para cambiar la configuración, elija la opción Importar y exportar configuraciones en el menú Herramientas. Para obtener más información, vea Valores de configuración de Visual Studio.

Para hacer ping a un servidor

Determine si el método Ping devuelve True. Este ejemplo informa de si se puede hacer ping en el servidor averiguando si el método Ping devolvió True. Reemplace 198.01.01.01 con la dirección IP, la dirección URL o el nombre de equipo del servidor en el que hacer ping.
```
If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

Para hacer ping a un servidor y especificar un tiempo de espera

Determine si el método Ping devuelve True, especificando el intervalo de tiempo de espera en milisegundos. Si no se especifica ningún tiempo de espera, se utiliza 500 como valor predeterminado. Este ejemplo informa de si se puede hacer ping en el servidor determinando si el método Ping devolvió True y especifica un tiempo de espera de 1000 milisegundos. Reemplace www.cohowinery.com con la dirección IP, la dirección URL o el nombre de equipo del servidor en el que hacer ping.
```
If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

Vea también

Tareas

Cómo: Comprobar el estado de conexión en Visual Basic

Referencia

My.Computer.Network (Objeto)

My.Computer.Network (Miembros del objeto)

My.Computer.Network.Ping (Método)

Share via