Bonjour,

J'ai créé une application qui effectue chaque minute un ping sur les serveurs de mon entreprise. voila le bout de code qui effectue cette tâche :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim siteResponds As Boolean = False
siteResponds = My.Computer.Network.Ping(serverIP)
 
If (siteResponds = False) Then
MsgBox("Le serveur " & serverIP & " ne répond pas.")
End If
Lorsque le serveur est en marche, tout va pour le mieu, mais lorsque le serveur ne répond pas, le programme plante et j'ai un super message d'erreur :
L'exception PingException n'a pas été gérée
Quelqu'un aurait-il une solution pour pallier à ce problème ?
Je voudrai simplement que lorsque le serveur ne répond pas, une msgbox s'affiche et me donne le nom du serveur qui ne répond pas.

Merci d'avance.