Discussion :

[ponpon17430]

Bonjour,

Je déploie des software via GPO en utilisant des scripts VBS.
Mon problème est que lors de l'installation avec un script au démarrage, on ne voit pas quand commence / termine l'installation.

Est ce possible d'afficher un message durant l'installation ?

Code :

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

1
2
3
4
5
 
sCommandLine = "msiexec /i \\Mon_Serveur\Adobe_Reader\10.1.3\AIP\AcroRead.msi /qn"
returnCode = objshell.run(sCommandLine, 1, true)
'sMessage = "Installation en cours"
'objShell.Popup sMessage, 10, "Software installation", 0+64

Le problème est que le popup va s'afficher qu'une fois mais j'aimerai une boucle tant que l'installation n'est pas terminée.

Merci d'avance pour vos réponses.

[hackoofr]

je ne sais pas s'il y a une méthode pour contrôler la terminaison d'une tâche en vbscript mais a la limite si vous avez plusieurs tâches (dans votre cas des installations) vous les exécuter avec la méthode ws.run en ajoutant le paramètre à True pour qu'il attend jusqu'à la terminaison de la tâche.
Exemple :

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
sMessage = "Veuillez Patienter l'installation est en cours ......"
Wait = 5
Set objShell = CreateObject("wscript.Shell")
Titre1 = "Installation de Adobe Reader"
objShell.Popup sMessage,Wait,Titre1,0+64
sCommandLine = "cmd /c ping www.google.com"
returnCode = objshell.run(sCommandLine,0,true)
 
Titre2 = "Installation de Winrar"
objShell.Popup sMessage,Wait,Titre2,0+64
command2 = "cmd /c ping www.yahoo.com"
returnCode = objshell.run(Command2,0,true)
 
Titre3 = "Installation de Microsoft Office"
objShell.Popup sMessage,Wait,Titre3,0+64
command3 = "cmd /c ping www.orange.fr"
returnCode = objshell.run(Command3,0,true)
 
objShell.Popup "Installation des logiciels est Terminé !",Wait,"Installation Terminé",0+64

[hackoofr]

Ce code est à tester chez vous en remplaçant ProcessRunning("cmd.exe") par ProcessRunning("msiexec.exe")
et
sCommandLine = "cmd /c ping -n 50 www.yahoo.com" par sCommandLine = "msiexec /i \\Mon_Serveur\Adobe_Reader\10.1.3\AIP\AcroRead.msi /qn"

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
sMessage = "Veuillez Patienter l'installation est en cours ......"
Wait = 5
Set objShell = CreateObject("wscript.Shell")
Titre1 = "Installation de Adobe Reader"
objShell.Popup sMessage,Wait,Titre1,0+64
sCommandLine = "cmd /c ping -n 50 www.yahoo.com"
returnCode = objshell.run(sCommandLine,0,False)
Call ProcessRunning("cmd.exe")
 
Function ProcessRunning(Process)
set svc=getobject("winmgmts:root\cimv2")
sQuery="select * from win32_process where name='"&Process&"'"
set cproc=svc.execquery(sQuery)
iniproc=cproc.count
Do While iniproc = 1 'Tant qu'il y a un processus qui tourne dans notre cas est le (Cmd.exe)
    Pause(10) 'Faire une pause de 10 secondes
    set svc=getobject("winmgmts:root\cimv2")
    sQuery="select * from win32_process where name='"&Process&"'"
    set cproc=svc.execquery(sQuery)
    iniproc=cproc.count
    objShell.Popup sMessage &vbcr& "l'application Cmd.exe existe !",Wait,Titre1,0+64
Loop
set cproc=nothing
set svc=nothing
End Function
 
Function Pause(NbSec)
wscript.sleep NbSec*1000
End Function

[ponpon17430]

Merci pour tes réponses.
Je vais tester cela