Bonjour à tous,
Premièrement, ceci est mon premier post sur ce forum donc désolé si je fais une ou plusieurs erreurs.
J'ai eu beau chercher un peu partout sur le net, je suis bloqué face à un problème concernant une gestion des erreurs via un script VBS.
Le contexte :
Ma société utilise différents users de test (avec différents droits) pour tester les régressions sur nos applications.
Cependant, certains sont utilisés une fois par an/décennie.
De ce fait, beaucoup sont automatiquement désactivés (1mois d'inactivité = en prison).
J'ai pour mission de refaire fonctionner un script qui lance la connexion de tous nos users sur nos environnements afin d'être tranquille avec ça.
Le problème :
Le script existe et il fonctionne bien sauf pour la partie gestion des erreurs.
Pour faire court, le script ouvre une fenêtre windows et regarde le titre de la page.
Si ce n'est pas celui attendu, il sort en nous insultant.
Or depuis notre passage à Windows 7, cette partie ne fonctionne plus.
Le code :
Voici la partie qui pose problème, je vous évite la boucle et les différents SendKeys qui fonctionnent bien.
Je n'ai retiré aucune ligne entre le Run et le test.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Set script = CreateObject("WScript.Shell") script.Run "iexplore.exe https://www.toto.com" If Not script.AppActivate("Le titre de Toto - Internet Explorer") Then MsgBox "La page n'est pas celle attendue" WScript.Quit End If
La condition est vérifiée à chaque reprise, même si la fenêtre porte le bon nom.
J'ai eu beau essayer plusieurs solutions (avec IE à la fin, sans IE, titre un peu différent, avec/sans espace ...), rien n'y fait.
Si quelqu'un a une idée, je suis preneur.
Partager