Discussion :

[hacbao]

Bonjour,

Je crée un script d'installation de logiciel qui sera déployer ensuite GPO.

J'ai besoin de votre aide pour savoir comment peut-on faire pour déterminer automatiquement le chemin d'installation en fonction de l'os. J'ai uniquement des XP ou Seven 64bit.

si XP 32bit = C:\Program Files\

ou seven 64bit = C:\Program Files (x86)

Merci

[l_autodidacte]

Voici un code à la volée en espérant qu'il puisse te venir en aide :

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
Option Explicit
 
Dim strComputer, objWMIService, colItems, objItem
 
'==================
MsgBox GetProgFilesPath 
'==================
Function GetSysDrv()
    GetSysDrv = CreateObject("Wscript.Shell").ExpandEnvironmentStrings("%HomeDrive%")
End Function
'====================
Function WinVersion()
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48) 
For Each objItem in colItems 
   WinVersion = objItem.Version
Next
End Function
'=====================
Function GetProgFilesPath()
   Dim sPath, Ver
   Ver = Left(WinVersion,3)
    If Ver = "5.1" Then
       sPath = GetSysDrv & "\Program Files\"
    ElseIf  Ver = "6.1" Then
       sPath = GetSysDrv & "\Program Files (x86)\"
    End If
    GetProgFilesPath = sPath
End Function

[hacbao]

Merci l_autodidacte,

Je voudrai rajouter le test de présence de l’exécutable, où pourrais-je le placer ?

Désolé pour l'oublie

Si Xp tu vérifies la présence de .exe et tu t'installes dans "\Program Files\" ou si seven tu vérifies la présence de .exe et tu t'installes dans "\Program Files (x86)\"

Merci pour le coup de main.

[ericlm128]

J'aurai fait plus simple

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
PF32 = GetProgramFiles32
WScript.Echo PF32
 
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(PF32 & "Dossier\Fichier.Extension")) Then
   WScript.Echo "Fichier existe"
Else
   WScript.Echo "Fichier n'existe pas "
End If
 
Function GetProgramFiles32
	Set objShell = CreateObject("WScript.Shell")
	Set Environment = objShell.Environment("PROCESS")
	GetProgramFiles32 = Environment("PROGRAMFILES(x86)")
	If (GetProgramFiles32 = "") Then GetProgramFiles32 = Environment("PROGRAMFILES")
End Function

[hacbao]

super,

J'ai apporté des modifications sur le lancement de l'installeur ainsi que sur les variables.