Цитата MKN:
для начала, сделать хотя бы только утилитку для извлечения ProductCode из MSI файла »
|
MKN, попробуйте такое (без обработки ошибок, VBScript):
Код:

Option Explicit
Const msiOpenDatabaseModeReadOnly = 0
Dim strPath2MSIFile
Dim strProductCode
strPath2MSIFile = "C:\Program Files\Windows Installer 4.5 SDK\TOOLS\orca.msi"
With WScript.CreateObject("WindowsInstaller.Installer")
With .OpenDatabase(strPath2MSIFile, msiOpenDatabaseModeReadOnly)
With .OpenView("SELECT * FROM Property WHERE Property = 'ProductCode'")
.Execute()
With .Fetch()
strProductCode = .StringData(2)
WScript.Echo strProductCode
End With
End With
End With
End With
WScript.Quit 0
Цитата:
Код: 
{4F34C602-4D6D-470D-A2A0-59E4F25DDBF2}
|