Déterminer le chemin d'installation

Version imprimable

23/05/2016, 09h06
hacbao

Déterminer le chemin d'installation

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

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

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

23/05/2016, 13h27
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:oops:

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.

J'aurai fait plus simple

Code:

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

24/05/2016, 10h49
hacbao

super,

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