Comment : déterminer si un ordinateur distant est disponible dans Visual Basic

Article
08/21/2008

Mise à jour : novembre 2007

Vous pouvez utiliser la méthode My.Computer.Network.Ping pour déterminer si un ordinateur distant ou un hôte est disponible. Le serveur peut être spécifié par URL, nom d'ordinateur ou adresse IP. N'incluez pas http:// lors de la spécification d'une URL.

La méthode Ping n'est pas une méthode infaillible pour déterminer la disponibilité d'un ordinateur distant : le port PING de l'ordinateur cible peut être désactivé, ou la demande PING peut être bloquée par un pare-feu ou un routeur.

Remarque :
Les options disponibles dans les boîtes de dialogue, ainsi que les noms et emplacements des commandes de menu que vous voyez, peuvent différer de ce qui est décrit dans l'aide selon vos paramètres actifs ou votre édition. Cette page d'aide concerne les Paramètres de développement généraux. Pour modifier vos paramètres, choisissez Importation et exportation de paramètres dans le menu Outils. Pour plus d'informations, consultez Paramètres Visual Studio.

Les options disponibles dans les boîtes de dialogue, ainsi que les noms et emplacements des commandes de menu que vous voyez, peuvent différer de ce qui est décrit dans l'aide selon vos paramètres actifs ou votre édition. Cette page d'aide concerne les Paramètres de développement généraux. Pour modifier vos paramètres, choisissez Importation et exportation de paramètres dans le menu Outils. Pour plus d'informations, consultez Paramètres Visual Studio.

Pour exécuter la commande PING sur un serveur

Déterminez si la méthode Ping retourne True. Cet exemple indique si la commande PING peut être exécutée sur le serveur ou non, en déterminant si la méthode Ping a retourné True. Remplacez 198.01.01.01 par l'adresse IP, l'URL ou le nom d'ordinateur du serveur sur lequel exécuter la commande PING
```
If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

Pour exécuter la commande PING sur un serveur et spécifier un délai

Déterminez si la méthode Ping retourne True en spécifiant l'intervalle de délai en millisecondes. Si aucun délai n'est spécifié, 500 est utilisé comme valeur par défaut. Cet exemple indique si la commande PING peut être exécutée sur le serveur ou non en déterminant si la méthode Ping a retourné True, et spécifie un intervalle de délai de 1000 millisecondes. Remplacez www.cohowinery.com par l'adresse IP, l'URL ou le nom d'ordinateur du serveur sur lequel exécuter la commande PING.
```
If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If
```

Voir aussi

Tâches

Comment : vérifier l'état de la connexion dans Visual Basic

Référence

My.Computer.Network, objet

Membres de l'objet My.Computer.Network

My.Computer.Network.Ping, méthode

Partager via