Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата 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}

Последний раз редактировалось Iska, 25-05-2011 в 18:56.

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:47, 25-05-2011 | #141