f3-logo-flexerasoftwareVoici une petite fonction que vous pourrez intégrer directement dans vos Custom Actions écrites en VBS.

Celle-ci vous permettra d’inscrire des informations dans les logs du MSI. En effet, il est impossible d’utiliser la bonne vieille méthode du wscript.echo dans ce cas sous peine de faire échouer l’installation. Grace à cette fonction vous pourrez suivre les actions faites dans vos scripts avec trois niveaux de de message : Error, Warning et Information.


'+---------------------------------------------------------------------------------
'| Fonction : LogInfoMSI
'| Description : Ajoute une ligne de texte dans le fichier de log du MSI
'|
'| Paramètre n°1 : Type_Msg : Type du message = "Error" / "Warning" / "Information"
'| Paramètre n°2 : Msg : Texte à ajouter au fichier de log
'+---------------------------------------------------------------------------------

Function LogInfoMSI(Type_Msg,Msg)
Set rec = Session.Installer.CreateRecord(1)
Select Case Type_Msg
Case “Error”
Msg = “Error : ” & Msg
Case “Warning”
Msg = “Warning : ” & Msg
Case Else
Msg = “Information : ” & Msg
End Select
rec.StringData(0) = Msg
LogInfoMSI = Session.Message(&H04000000, rec)
Set Rec = Nothing
End Function