VBScript to read Summary Information Stream of MST
I am trying to automate some Standard Checks
Can anyone tell me how to read the Summary Information Stream of an MST using VBScript
Veena G
Can anyone tell me how to read the Summary Information Stream of an MST using VBScript
Veena G
0 Comments
[ + ] Show comments
Answers (7)
Please log in to answer
Posted by:
captain_planet
15 years ago
Try this (Reads the 'title'):
'create installer object
Set oInstaller = CreateObject("WindowsInstaller.Installer")
'open msi in read-only mode
Set oDatabase = oInstaller.OpenDatabase(<PATH To MSI>, 0)
'apply transform
oDatabase.ApplyTransform <PATH TO MST>, 63
Dim streamobj
Set streamobj = oDatabase.SummaryInformation(0) '0 = read only
'read title
WScript.Echo streamobj.Property(2)
Set streamobj = Nothing
Set oDatabase = Nothing
Set oInstaller = Nothing
Posted by:
veenarvg
15 years ago
Posted by:
nheim
15 years ago
Posted by:
veenarvg
15 years ago
Posted by:
nheim
15 years ago
Hi Veena,
still don't know exactly why you want to do this.
Are you aware, that there are transforms without the summary info stream?
please have a look at "WiSumInf.vbs", "WiLstXfm.vbs" + "WiGenXfm.vbs" from the installer SDK.
This should give you enough examples, to do it.
BTW: Captains example above should work, but is only an example. You need to customize it for your needs.
Regards, Nick
still don't know exactly why you want to do this.
Are you aware, that there are transforms without the summary info stream?
please have a look at "WiSumInf.vbs", "WiLstXfm.vbs" + "WiGenXfm.vbs" from the installer SDK.
This should give you enough examples, to do it.
BTW: Captains example above should work, but is only an example. You need to customize it for your needs.
Regards, Nick
Posted by:
veenarvg
15 years ago
I got the solution.[:)]
Summary Information Stream can be directly accessed using the Installer object itself
http://msdn.microsoft.com/en-us/library/aa369486(VS.85).aspx
Thanks,
Veena G
Summary Information Stream can be directly accessed using the Installer object itself
Set oInstaller = CreateObject("WindowsInstaller.Installer")
Set streamobj = oInstaller.SummaryInformation(<Path to MSI or MST>)
'read title
msgbox streamobj.Property(2)
Set streamobj = Nothing
Set oInstaller = Nothing
See the following link for details about Installer.SummaryInformationhttp://msdn.microsoft.com/en-us/library/aa369486(VS.85).aspx
Thanks,
Veena G
Posted by:
nheim
15 years ago
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.