 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Get MSI-File properties
|
||
|
Call GetArguments(ArgArray)
If IsArray(ArgArray) then For Each ArrayElement In ArgArray Wscript.Echo GetMSIProperties(ArrayElement) Next Else WScript.Echo "Drag and drop MSI-File over the Script" End if ' ---------------------------------------- Private Function GetMSIProperties(strMSIFile) Dim oWI : Set oWI = CreateObject("WindowsInstaller.Installer") Dim oDB : Set oDB = oWI.OpenDatabase(strMSIFile, 2) Dim oView : Set oView = oDB.OpenView("Select * From Property") Dim oRecord oView.Execute Do Set oRecord = oView.Fetch If oRecord Is Nothing Then Exit Do iColumnCount = oRecord.FieldCount rowData = Empty delim = " " For iColumn = 1 To iColumnCount If iColumn = iColumnCount Then delim = vbLf rowData = rowData & oRecord.StringData(iColumn) & delim Next strMessage = strMessage & rowData Loop Set oRecord = Nothing Set oView = Nothing Set oDB = Nothing Set oWI = Nothing GetMSIProperties = strMessage End Function ' ---------------------------------------- Private Function GetArguments(SourceArray) Dim iCount : iCount = 0 If wscript.arguments.count > 0 then ReDim ArgArray(wscript.arguments.count -1) For Each Argument in wscript.arguments ArgArray(iCount) = Argument iCount = iCount +1 Next iCount = Null GetArguments = ArgArray End if End Function | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
