Discussion :

[yannick13007]

Bonjour,

Je souhaiterai lancer une application dont l'exécutable conporte des paramètres. De plus, lors de l'affichage de la fenêtre d'authentification, il faudrait que le login et le mot de passe soit renseigner automatiquement.

J'ai essayer le script vbs ci-après mais seul le lancement de l'application fonctionne avec les paramètres. En revanche, le login et mot de passe ne sont pas renseignés dans les champs de la fenêtre.
Pour information, le lancement de la fenêtre d'authentification met environ 3 minutes à s'afficher. Aussi, sur mon poste, j'ai d'autres applications en cours d'exécution, donc, il faut que le script renseigne bien le login et mot de passe dans la bonne fenêtre de l'application (et non dans une autre application).

Contenu du script VBS:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\XXXXX\YYYY.exe"""
 
Do
WScript.Sleep 1000
bFound = WshShell.AppActivate("C:\Program Files (x86)\XXXXX\YYYY.exe")
Loop Until bFound
WshShell.SendKeys "ADMIN"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "password"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"

[ProgElecT]

Salut, bienvenue sur DVP

Ne serait il pas possible, suivant le type d'executable, de mettre les paramètres dans la ligne du run ?
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WshShell.Run """C:\Program Files (x86)\XXXXX\YYYY.exe log=ADMIN,psw=password"""

[yannick13007]

Bonjour,

Non cela ne fonctionne malheurement pas.

Cdt,
Yannick

[ProgElecT]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Function Proccess(nomfichier)
dim objWMIService
dim ProcessEncours
dim strComputer
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set ProcessEncours = objWMIService.ExecQuery ("Select name from Win32_Process where name ='" & nomfichier & "'")
Set objWMIService = NotHing
 
If ProcessEncours.Count <> 0 Then Proccess = True Else Proccess = False
 
Set ProcessEncours = NotHing
 
End Function
 
Dim WshShell, oExec, ChemExec, NameExec
 
ChemExec = "C:\Program Files (x86)\Microsoft Visual Studio\VB98\"
NameExec = "VB6.EXE"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(ChemExec & NameExec)
Set oExec = NotHing
 
Do While Proccess(NameExec) = false 'boucle tant que l’exécutable n'est pas lancer
    Wscript.Sleep 10 'attente de 0.01Sc
loop
'msgbox "Encours " & Proccess(NameExec)
          WScript.Sleep 500
         WshShell.AppActivate NameExec
         WScript.Sleep 100
         WshShell.SendKeys "ADMIN"
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "{TAB}"
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "password"
         WScript.Sleep 500
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "{ENTER}"
 
Do While Proccess(NameExec) = True 'boucle tant que l’exécutable n'est pas terminé/fermé
    Wscript.Sleep 100 'attente de 0.1Sc
loop
' suite à la fin du programme lancé
msgbox "Encours " & Proccess(NameExec)

La première boucle Do While ligne 27 à 29, attend que le processus soit actif, en ligne 30 il l'est.
Donc tu peux mettre ta série de SendKeys à la place du MsgBox ligne 30.
La deuxième boucle, ligne 45 à 47, ne sert que pour vérifier la fermeture du programme lancé.

[yannick13007]

Bonjour,

En lançant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Function Proccess(nomfichier)
dim objWMIService
dim ProcessEncours
dim strComputer
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set ProcessEncours = objWMIService.ExecQuery ("Select name from Win32_Process where name ='" &  nomfichier & "'")
Set objWMIService = NotHing
 
If ProcessEncours.Count <> 0 Then Proccess = True Else Proccess = False
 
Set ProcessEncours = NotHing
 
End Function
 
Dim WshShell, oExec, ChemExec, NameExec
 
ChemExec = "C:\Program Files (x86)\XXXXXX\"
NameExec = "YYYYYY.exe"
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(ChemExec & NameExec)
Set oExec = NotHing
 
Do While Proccess(NameExec) = false 'boucle tant que l’exécutable n'est pas lancer
   Wscript.Sleep 10 'attente de 0.01Sc
loop
msgbox "Encours1 " & Proccess(NameExec)
         WScript.Sleep 500
         WshShell.AppActivate NameExec
         WScript.Sleep 100
         WshShell.SendKeys "ADMIN"
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "{TAB}"
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "password"
         WScript.Sleep 500
         WshShell.AppActivate NameExec
         WScript.Sleep 500
         WshShell.SendKeys "{ENTER}"
 
Do While Proccess(NameExec) = True 'boucle tant que l’exécutable n'est pas terminé/fermé
    Wscript.Sleep 100 'attente de 0.1Sc
loop
 suite à la fin du programme lancé
msgbox "Encours2 " & Proccess(NameExec)

L'application se lance bien mais sur la fenêtre de login et de mot de passe, rien ne s'écrit. De plus, avant même la fin d'exécution du programme, les 2 msgbox sont affichés. Donc je pense que la boucle qui attend la fin de lancement du programme ne semble pas fonctionné.
Je vous avoue que je ne sais pas comment déboguer le programme. A quoi sert les lignes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set ProcessEncours = objWMIService.ExecQuery ("Select name from Win32_Process where name ='" &  nomfichier & "'")
Set objWMIService = NotHing

?

Merci par avance pour votre aide.

[ProgElecT]

Re

A chaque exécution d'un programme, windows enregistre dans la base de registre sont lancement.
La fonction Proccess(nomfichier) interroge cette base, si le nom du programme n'est pas trouvé, la fonction renvoie false, donc la première boucle continu à tourner, et le programme vbscript reste dans cette boucle.
Si le MsgBox "Encours = True" apparait avant que tu ne le vois à l'écran, c'est que le programme est toujours en cours de chargement mais que windows l'a déjà inscrit dans sa base de registre.
Là, sous vbscript, je ne sais pas détecter la fin du chargement.

la fenêtre d'authentification met environ 3 minutes à s'afficher.

Essais d'augmenter la tempos en ligne 29 WScript.Sleep 180000 par contre il me semble me rappeler que windows va sortir une fenêtre d'alerte pour te proposer d’arrêter le programme VBScript.