Discussion :

[Freud44]

Bonjour,

Je prépare un script d'install d'un fichier msi.

Voici le code, qui ne s’exécute pas :

Code :

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

1
2
3
4
5
6
7
8
9
 
set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
 
strJavaInstallPath = "\\myServer\netlogon\java\jre1.7.0_25\jre1.7.0_25.msi"
strCommand = "msiexec /i " & strJavaInstallPath & " /quiet"
 
 
objShell.Run strCommand

Si je lance la commande passée en paramètre à msiexec via une invite de commande sur un poste, cela fonctionne.

Si je double clique sur mon vbs, cela ne marche pas.

Je ne vois pas l'erreur que j'ai commis, hormis peut être les guillemets dans ma chaine de caractère...

des idées?

merci

[Cachlab]

Bonjour,

J'ai l'impression d'avoir déjà rencontré ce genre de souci avec les chemins UNC.
Peux-tu tester en mappant un lecteur réseau temporaire ?

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 objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network") 
 
Lecteur = "Z:"
Mapping = "\\myServer\netlogon"
 
If objFSO.DriveExists(Lecteur) Then objNetwork.RemoveNetworkDrive Lecteur
objNetwork.MapNetworkDrive Lecteur, Mapping
 
strJavaInstallPath = Lecteur & "\java\jre1.7.0_25\jre1.7.0_25.msi"
strCommand = "msiexec /i " & strJavaInstallPath & " /quiet"
 
objShell.Run strCommand

[Freud44]

Pas mieux

Et pourtant je fais mon test avec un compte admin..

[Cachlab]

J'ai un doûte sur la syntaxe de ton msiexec ...
Peux-tu essayer (ligne 12) :

Code :

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

strCommand = "msiexec /quiet /i " & strJavaInstallPath

[Freud44]

Non plus..

[Cachlab]

C'est contrariant !
Le lecteur se mappe correctement au moins ?
Essaye avec ce code là :

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 objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network") 
 
Lecteur = "Z:"
Mapping = "\\myServer\netlogon"
 
If objFSO.DriveExists(Lecteur) Then objNetwork.RemoveNetworkDrive Lecteur
objNetwork.MapNetworkDrive Lecteur, Mapping
 
strJavaInstallPath = Lecteur & "\java\jre1.7.0_25\jre1.7.0_25.msi"
strCommand = "msiexec /quiet /i " & strJavaInstallPath
 
objShell.Exec strCommand