Message popup durant installation

Version imprimable

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:

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.

:salut:
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:

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

:salut:
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:

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

19/11/2012, 12h19
ponpon17430

Merci pour tes réponses.
Je vais tester cela :)