L’objectif est de récupérer les variables d’environnement de l’utilisateur en cours d’installation d’un package MSI. La difficulté est que l’installation par certain outil de télédistribution installent les packages avec le compte système.
Ci-joint vous trouverez un script vbs permettant de récupérer ces informations. Nous allons décrire les actions suivantes :
- Ajout du vbscript dans une « custom action »
- Séquencer cette « custom action »
- Modifier l’installation d’un composant en fonction d’une variable utilisateur
- Séquencer cette « custom action »
- Utilisation de cette nouvelle valeur dans le chemin d’installation du composant
1. Créer une nouvelle « custom action » pour exécuter le vbscript
- Ouvrir le MSI avec InstEd
- Ajouter un nouvel enregistrement dans la table CustomAction, de type 38 (0x26 - VBScript - Source: Null - Target: script text | Scheduling: Always).
- Recopier le contenu du script ci-joint dans le champ Target.
Par exemple :
Voici les variables d’environnement récupérées et les variables « windows installer » affectées :
2. Séquencer la « custom action »
Par exemple :
3. Créer une nouvelle « custom action » pour modifier les composants à partir des nouvelles informations
- Ajouter un nouvel enregistrement dans la table CustomAction, de type 35 (0x23 - Directory - Source: Directory to be set - Target: formatted text | Scheduling: Always).
Cette « custom action » va donc affecter au répertoire « LogonUserProfile » la variable windows installer « LogonUserProfile »
4. Séquencer la « custom action »
Pas de condition à ajouter, car elle doit être exécutée dans tous les cas, installation, rollback, désinstallation et auto-réparation.
Par exemple :
Par exemple, ici nous avons positionné un fichier dans le profil de l’utilisateur. Ce fichier est contenu dans un composant :
Le chemin d’installation du composant sera donc automatique réévalué à l’installation, rollback, désinstallation et auto-réparation.
Ce principe pourra également être utilisé pour des package MSI x86/x64 pour des composants nécessitant un chemin différent suivant l’architecture du poste de travail.
***************************************
Get_LogonUsersVars.vbs
Option Explicit
Const HKEY_USERS = &H80000003
Dim strKeyPath, subKey, arrKeys
Dim oReg
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
strKeyPath = "Volatile Environment"
'*** DEBUT DU MAIN ***
oReg.EnumKey HKEY_USERS, "", arrKeys
For Each subkey In arrKeys
If RegExists("HKEY_USERS\" & subkey & "\" & strKeyPath & "\") Then
Session.Property("LogonUserSID") = subkey
'Msgbox "User's SID : " & Session.Property("LogonUserSID")
Session.Property("LogonUserName") = oShell.RegRead("HKEY_USERS\" & subkey & "\" & strKeyPath & "\USERNAME")
'Msgbox "LogonUserName : " & Session.Property("LogonUserName")
Session.Property("LogonUserAppData") = oShell.RegRead("HKEY_USERS\" & subkey & "\" & strKeyPath & "\APPDATA")
'Msgbox "LogonUserAppData : " & Session.Property("LogonUserAppData")
Session.Property("LogonUserProfile") = oShell.RegRead("HKEY_USERS\" & subkey & "\" & strKeyPath & "\USERPROFILE")
'Msgbox "LogonUserProfile : " & Session.Property("LogonUserProfile")
End If
Next
'*** FIN DU MAIN ***
' Test d'existence d'une clé de registre
Function RegExists(value)
On Error Resume Next
Dim Val
val = oShell.RegRead(value)
If (Err.number = -2147024893) or (Err.number = -2147024894) Then
RegExists = False
Else
RegExists = True
End If
End Function