Test sur présence de fenêtre cmd
Bonjour,
Je suis débutant en VBS et je cherche actuellement à créer un petit script pour tester la connexion ok ou ko à un serveur via les commandes telnet. Voici ce que j'ai écris:
Code:
1
2
3
4
5
6
7
| Dim WshShell
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run "telnet 10.X.X.X"
WScript.Sleep 1000
WshShell.SendKeys "login {enter}"
WScript.Sleep 1000
WshShell.SendKeys "password {enter}" |
Si la connexion au serveur est OK, mon script continue bien d'écrire les commandes suivantes (login + password). Par contre si la connexion au serveur est KO, alors la fenêtre de commande se ferme, mais le script continue à executer les commandes n'importe où.
J'aimerai trouver une fonction qui me permette de tester: si la fenêtre de commande est encore ouverte alors on le script exécute les commandes suivantes, sinon il ne fait rien.
