ServerWatch content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
by John Loomes
This script prompts for an MSI
(Windows Installer) Package, and an output location. It then queries
the File table within MSI and exports all the file names within the
package to a spreadsheet. You could easily modify this to run as a
batch process to pump out all the files from hundreds of MSI
Packages. This information might be useful in determining common
components etc, when developing MSI based setup routines.
This script prompts for an MSI
(Windows Installer) Package, and an output location. It then queries
the File table within MSI and exports all the file names within the
package to a spreadsheet.
You could also modify the script to
export ANY table from MSI (change the value of the variable ‘Table’
to the table you’re interested in, and away you go!
N.B. This script is a modified
version of a script from the MSI SDK, so credits etc to
Microsoft……
‘ File Export v 1.0
‘ Export
File Table from a given MSI Database to an Excel Spreadsheet
‘
J.Loomes Nov 2000
Option Explicit
Const
msiOpenDatabaseModeReadOnly = 0
On Error Resume
Next
Dim installer : Set installer = Nothing
Dim
szMSI
szMSI = InputBox(“Enter MSI File (including full
path)”, “Select MSI”, “”)
DIM folder : folder = InputBox(“Enter
Folder to Write Table to…”, “Select Export Folder”,””)
Set
installer = Wscript.CreateObject(“WindowsInstaller.Installer”) :
CheckError
Dim database : Set database =
installer.OpenDatabase(szMSI, msiOpenDatabaseModeReadOnly) :
CheckError
Dim table, view,
record
table =
“File”
Set view =
database.OpenView(“SELECT ‘Name’ FROM
_Tables”)
view.Execute
: CheckError
Do
Set record = view.Fetch :
CheckError
If record Is Nothing Then Exit
Do
Export table, folder :
CheckError
Loop
Set view =
Nothing
Export table, folder
: CheckError
Wscript.Quit(0)
Sub Export(table,
folder)
Dim file :file = table &
“.xls”
database.Export table, folder,
file
End Sub
Sub CheckError
Dim
message, errRec
If Err = 0 Then Exit
Sub
message = Err.Source & ” ” &
Hex(Err) & “: ” & Err.Description
If
Not installer Is Nothing
Then
Set errRec =
installer.LastErrorRecord
If Not errRec Is Nothing Then message = message & vbNewLine
& errRec.FormatText
End
If
Wscript.Echo message
Wscript.Quit 2
End Sub
