De rien.
Et pour cela tu veux tester quoi ? Qu'un compte se connecte bien ? (avoir les infos d'un compte en clair dans le code c'est moche !) Juste tester que le port 21 est ouvert ? (connexion en français, connection en anglais )
Je ne vois pas comment, tout en ayant le syno éteint, on pourrait avoir le service FTP opérationnel !
Le "PING" ne gère pas les ports il me semble -> je confirme, PING n'utilise pas de protocole nécessitant un port donc il ne les gère pas.
C'est même pas du bricolage là, c'est du vandalisme !
Me dit pas que tu as mis tout ça dans un même fichier ?
Ensuite, c'est quoi ça ?
If Case1 Then
Msgbox "Le Serveur SYNOLOGY à l'adresse " & v_IP & " est actuellement " & v_etat, v_icon, "Test de connectivité au NAS"
Else
Msgbox "Le Serveur SYNOLOGY à l'adresse " & v_IP & " est actuellement " & v_etat, v_icon, "Test de connectivité au NAS"
End If
"Si Case1 (variable qui ne correspond à rien) alors faire un message sinon, faire le même message." Aucun intérêt T'as voulu faire quoi ?
Arg et je n'avais pas vu le
If Case1 Then
Msgbox "Le Serveur SYNOLOGY à l'adresse " & v_IP & " est actuellement " & v_etat, v_icon, "Test de connectivité au NAS"
Else
...
End IF
A mon avis avant de te lancer dans la modif' de script à l'arrache, choppe toi un site pou débutant en VBS et essaie de comprendre les instructions utilisées.
Là c'est grillé que tu ne comprends rien au déroulement du code (même si je ne l'ai pas commenté il est pas trop dur je pense) et donc forcément, quand on ne pige pas, on fait tout de travers ^^
Et pour finir faudrait indenter et commenter ce que tu fais même si je n'ai pas montré l'exemple :
Dim v_IP ' Déclaration des variables...
Dim v_ping_cmd, v_ping, v_etat, v_icon '...suite et fin
v_IP = "192.168.1.10" ' Définition de l'adresse IP de la machine à tester
Set WshShell = CreateObject ("Wscript.shell" ) ' Création de l'objet Shell
v_ping_cmd = "cmd /c ping.exe -n 1 " & v_IP & " | find /I " & CHR(34) & "Impossible" & CHR(34) ' commande de test
v_ping = WshShell.Run(v_ping_cmd, 0, TRUE) ' exécution de la commande
Select Case v_ping ' Traitement des différents cas du ping
Case 0 : ' si le string "Impossible" est détecté dans la réponse du ping
v_etat = "hors ligne"
v_icon = "16"
Case 1 : ' si il ne l'est pas
v_etat = "en ligne"
v_icon = "64"
Case Else ' si autre
v_etat = "### ERREUR DU SCRIPT ###"
v_icon = 16
End Select ' Fin du traitement des cas du ping
' MsgBox "v_ping_cmd = " & v_ping_cmd, 64, "DEBUG" ' message de débeug à commenter uen fois terminé
Msgbox "Le NAS à l'adresse " & v_IP & " est actuellement " & v_etat, v_icon, "Test de connectivité au NAS" ' Message affiché à l'utilisateur
Allez allez, on se met au boulot là !