Soucis avec WScript.Shell.AppActivate

Version imprimable

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.
Code:

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
Je n'ai retiré aucune ligne entre le Run et le test.
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.

Bonjour et BIENVENU sur DVP;

Et si tu ajoutes une temporisation, par exemple :

Code:

1
2
3
4
5
6
7
8
Set script = CreateObject("WScript.Shell") 
script.Run "iexplore.exe https://www.toto.com"
Wscript.Sleep 1000 ' temporisation d'une seconde
 
If Not script.AppActivate("Le titre de Toto - Internet Explorer") Then
    MsgBox "La page n'est pas celle attendue"
    WScript.Quit
End If

26/08/2016, 14h58
Jbwils

En fait, j'ai déjà essayé cela avec une temporisation de 10 secondes.
Autant te dire que la page est complètement chargée.

Malheureusement, le script ne me détecte toujours pas la fenêtre.

Est-ce que cela donne quelque chose de positif si on remplace le titre de la fenêtre par son PID ?
Code:

1 2 3 4 5 6 7 Set script = CreateObject("WScript.Shell") Set oExec = script.Exec("iexplore.exe https://www.toto.com") Wscript.Sleep 10000 If Not script.AppActivate(oExec.ProcessID) Then MsgBox "La page n'est pas celle attendue" WScript.Quit End If
[EDIT] Désolé pour l'oubli :
Dans la ligne de commande(ou paramètre) de de la méthode Exec, il faut mettre le chemin complet de iexplore.exe sinon message d'erreur : Fichier introuvable.
J'ai testé avec la page courante et cela fonctionne, espérons qu'il en soit de même sur ta machine; voici le code de test :
Code:

1 2 3 4 5 6 7 8 9 10 Set script = CreateObject("WScript.Shell") Set oExec = script.Exec("C:\Program Files\Internet Explorer\iexplore.exe http://www.developpez.net/forums/d1599498/autres-langages/general-visual-basic-6-vbscript/vbscript/soucis-wscript-shell-appactivate/#post8725415") Wscript.Sleep 20000 If Not script.AppActivate(oExec.ProcessID) Then MsgBox "La page n'est pas celle attendue" WScript.Quit Else MsgBox "Page trouvée" Wscript.Quit End If

26/08/2016, 22h39
Jbwils

Désolé mais j'ai du mal expliquer mon problème.

On charge une page et là deux options :
-soit aucun utilisateur n'est identifié et on nous propose la page de login (celle que je veux).
-soit un utilisateur est identifié et on arrive directement sur le portail (auquel cas, ma série de test sera faux).

Les titres des deux pages sont différents, il faut donc que je regarde le nom de la fenêtre.
Il m'est impossible de passer par l'ID du processus :quelque soit la page, le numéro sera identique.

Salut Jbwils et l_autodidacte

Une autre approche peut être que....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Set script = CreateObject("WScript.Shell")
Set script = CreateObject("InternetExplorer.Application")
'script.Run "iexplore.exe https://www.toto.com"
script.navigate "https://www.toto.com"
'If Not script.AppActivate("Le titre de Toto - Internet Explorer") Then
Wscript.Sleep 1000 ' temporisation d'une seconde
If script.LocationName <> "https://www.toto.com" Then
    MsgBox script.LocationName & vbnewline & script.locationUrl, vbCritical, "La page n'est pas celle attendue"
    Set script = nothing
    WScript.Quit
    Else
    script.Visible = True
    MsgBox script.LocationName & vbnewline & script.locationUrl,vbInformation, "La page a été trouvée"
End If
Set script = nothing

27/08/2016, 00h11
l_autodidacte

Salut ProgElecT & Jbwils

La ligne 7 devrait(peut-être) être If script.LocationUrl <> "https://www.toto.com" Then
12/12/2016, 14h02
yoyof

Est-ce que le problème a été résolu?