Tester connectivité avec un périphérique réseau
Bonjour à tous,
Je viens vers vous, car je ne connais pas du tout le VBS, juste un petit peu de VBA...
J'ai sur mon réseau local, un serveur NAS, dont je voudrais tester la connectivité lorsque je démarre mon PC.
Je vous explique le logigramme :
-- Tester si l'adresse IP 192.168.0.10 répond ?
----- si oui MsgBox : serveur NAS connecté au réseau local
----- si non, Tester si l'adresse mondomaine.com:10 répond ? (*)
-------- si oui MsgBox : serveur NAS accessible via FTP
-------- si non, MsgBox : Serveur NAS déconnecté.
Par contre, je ne sais pas si il est possible de tester si un port répond à une adresse ?
Sinon, peux-t'on tester si il est possible d'ouvrir une connexion FTP ?
Sur le forum de mon serveur NAS, quelqu'un m'a proposé ce code pour tester en local uniquement :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Dim v_IP
Dim v_ping_cmd, v_ping, v_etat, v_icon
v_IP = "192.168.1.10"
Set WshShell = CreateObject ("Wscript.shell" )
v_ping_cmd = "cmd /c ping.exe -n 1 " & v_IP & " | find /I " & CHR(34) & "Impossible" & CHR(34)
v_ping = WshShell.Run(v_ping_cmd, 0, TRUE)
Select Case v_ping
Case 0 :
v_etat = "hors ligne"
v_icon = "16"
Case 1 :
v_etat = "en ligne"
v_icon = "64"
Case Else
v_etat = "### ERREUR DU SCRIPT ###"
v_icon = 16
End Select
' MsgBox "v_ping_cmd = " & v_ping_cmd, 64, "DEBUG"
Msgbox "Le NAS à l'adresse " & v_IP & " est actuellement " & v_etat, v_icon, "Test de connectivité au NAS" |
Merci pour tous vos conseils, et aide. ;)
Mikael
