Installer Msi avec parametres via un vbs

Version imprimable

Bonjour,
Je cherche à installer un .msi via un script vbs avec des paramètres pour cette installation.
Jusque la pas de problème, le soucis est que ces paramètres ne sont pas tous défini et doivent être récupéré auparavant dans ce même script.

Voici le code de l'installation:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim WshShell, oExec Dim install1, install2 Set WshShell = CreateObject("WScript.Shell") install1="msiexec.exe /i " install2="""C:\toto.msi""" install1=install1+install2+"SERVER=VALUE1 CONFIG=VALUE2 AM_CONTROL=Full REQUIRE_AUTH_COMMN=1" 'install Set oExec = WshShell.Exec(install1) Do While oExec.Status = 0 WScript.Sleep 100 Loop
Les paramètres d'installation SERVER et CONFIG doivent être défini par des variables VALUE1 et VALUE2 qui auront été récupéré via une autre action auparavant (cette action fonctionne bien)

Si quelqu'un avait une idée de comment écrire cette ligne de paramètres :?

23/07/2009, 15h48
spantemonium

Eh bien, si j'ai bien compris tu as juste à stocker en variables les différents paramètres, et a les ajouter dans ta ligne de commande install1 ou install2.

Est ce que tu peux poster l'intégralité de ton code ?

Oui tout à fait, mais mon problème est de savoir comment définir ces variables dans mes paramètres, j'ai essayé plusieurs choses mais sans réel succès.

Voici le code complet:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
'job id=" Recherche du serveur FCS du site">
 
                'script language="VBScript">
 
Dim arg, serveur_fcs, VALUE1, VALUE2
 
on error resume next 
 
'wscript.echo "corp  recherche alias serveur" 
 
arg = "spot-fcs-srv"
 
serveur_fcs = nsname(arg)
 
VALUE1=Ucase(serveur_fcs)
 
 wscript.echo "Valeur1 : " & VALUE1
 
 VALUE2 = VALUE1 & "_MOM"
 
 wscript.echo "valeur 2 : " & VALUE2
 
function nsname (alias)
 
Dim Shell, comd, Pipe, ligne, regEx, OkResult
 
Set Shell = CreateObject("WScript.Shell")
 
okresult=False
 
set regEx = New RegExp
 
'extract "name:"
 
regEx.Pattern = "([a-z]-[\w]+)." ' Set pattern.
 
regEx.IgnoreCase = True   ' Set case insensitivity.
 
regEx.Global = True   ' Set global applicability.
 
comd = "ping -n 1 " & alias 
 
comd = "nslookup " & alias
 
Set Pipe = Shell.Exec("%comspec% /c " & comd )
 
while not Pipe.StdOut.AtEndOfStream and not OkResult
 
                ligne = Pipe.StdOut.ReadLine()
 
wscript.echo ligne  
 
                if regEx.test(ligne) then OkResult = True
 
                Wend
 
nsname=""
 
if okResult then
 
                nsname=(regex.execute(ligne))(0).submatches(0)
 
end If 
 
end function
 
Dim WshShell, oExec
Dim install1, install2
 
Set WshShell = CreateObject("WScript.Shell")
 
install1="msiexec.exe /i "
install2="""C:\toto.msi"""
 
install1=install1+install2+"SERVER=VALUE1 CONFIG=VALUE2 AM_CONTROL=Full REQUIRE_AUTH_COMMN=1"
 
'install
Set oExec = WshShell.Exec(install1)
Do While oExec.Status = 0
WScript.Sleep 100
Loop

Essaie de mettre ton code dans la balise code.

Après mise en page et légère modification ca donne :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
'job id=" Recherche du serveur FCS du site">
'script language="VBScript">
Dim arg, serveur_fcs, VALUE1, VALUE2
on error resume next
'wscript.echo "corp recherche alias serveur"
arg = "spot-fcs-srv"
serveur_fcs = nsname(arg)
VALUE1=Ucase(serveur_fcs)
wscript.echo "Valeur1 : " & VALUE1
VALUE2 = VALUE1 & "_MOM"
wscript.echo "valeur 2 : " & VALUE2
Dim WshShell, oExec
Dim install1, install2
Set WshShell = CreateObject("WScript.Shell")
install1="msiexec.exe /i"
install2="""C:\toto.msi" 'modifié
'___________________________________________________________________________________________
'La ligne à surveiller
'install1=install1+install2+"SERVER=VALUE1 CONFIG=VALUE2 AM_CONTROL=Full REQUIRE_AUTH_COMMN=1"
install3=install1 & " " & install2 & " SERVER=" & VALUE1 & " CONFIG=" & VALUE2 & " AM_CONTROL=Full REQUIRE_AUTH_COMMN=1"""
'___________________________________________________________________________________________
Set oExec = WshShell.Exec(install3) 'modifié
Do While oExec.Status = 0
	WScript.Sleep 100
Loop
 
'___________________________________________________________________________________________
function nsname (alias)
	Dim Shell, comd, Pipe, ligne, regEx, OkResult
	Set Shell = CreateObject("WScript.Shell")
	okresult=False
	set regEx = New RegExp
	'extract "name:"
	regEx.Pattern = "([a-z]-[\w]+)." ' Set pattern.
	regEx.IgnoreCase = True ' Set case insensitivity.
	regEx.Global = True ' Set global applicability.
	comd = "ping -n 1 " & alias
	comd = "nslookup " & alias
	Set Pipe = Shell.Exec("%comspec% /c " & comd )
		while not Pipe.StdOut.AtEndOfStream and not OkResult
			ligne = Pipe.StdOut.ReadLine()
			wscript.echo ligne
		if regEx.test(ligne) then OkResult = True
	Wend
	nsname=""
	if okResult then
		nsname=(regex.execute(ligne))(0).submatches(0)
	end If
end function

23/07/2009, 16h19
benguil

OUi c'est ce que je venais de faire quand j'ai vu l'horreur de la mise en page :oops:

Je suis en train de regarder tes modifications, je vais tester cela.
Je te remercie :ccool:
23/07/2009, 16h43
benguil

Alors desormais, lorsque l'on arrive au moment du lancement du msi on voit la fenêtre qui apparait mais se referme aussitot , il semblerait qu'il y ait un problème lors de ce lancement, j'ai fait quelques tests pour voir en modifiant certaines ligne mais rien n'y fait...

As tu une idée d'ou cela pourrait provenir?
(Le .msi fonctionne bien)
23/07/2009, 16h51
spantemonium
essaie un :

Code:

wscript.echo install3

et lance le résultat à la main pour voir...

sinon, possible qu'il y ait un problème dans ta temporisation (sleep), auquel cas on pourrait remplacer l'exec par un run avec en parametre l'attente de la fin d'install...

Si je me souviens bien ca donne un truc du genre :
Code:

1 2 Set oExec = WshShell.Run install3,,true
23/07/2009, 17h12
benguil

Bon avec la messagebox de la ligne de commande j'ai vite compris d'ou venait le problème... Il manquait des espaces entre chaque paramètre :roll:

Desormais la ligne de commande ressemble à quelque chose
Voici la modification

Code:

install3=install1 & " " & install2 & " "& " SERVER=" & VALUE1 & " " & " CONFIG=" & VALUE2 & " " & " AM_CONTROL=Full REQUIRE_AUTH_COMMN=1"

Merci beaucoup pour ton aide

:ccool: