[Iska]

для начала, сделать хотя бы только утилитку для извлечения 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}

[kotkovets]

громоздко с помощью макроса опубликованного kotkovets и включенного в справочник »

есть пример куда проще определять:

читать дальше »

Код:

OutFile "GetMSI.exe"

!define GetMSIProduct `!insertmacro _GetMSIProduct`
!macro _GetMSIProduct VAR ProductCode
   System::Call 'msi::MsiQueryProductStateA(t "${ProductCode}") i.s'
   Pop ${VAR}
!macroend

Section MSIProduct
  ${GetMSIProduct} $0 "{837b34e3-7c30-493c-8f6a-2b0f04e2912c}" ;на примере VC++ 2005 SP1
  StrCmp $0 5 0 +2
  MessageBox MB_ICONINFORMATION|MB_OK "$$0 = $0$\nЭтот продукт установлен!" IDOK
  StrCmp $0 `-1` 0 +2
  MessageBox MB_ICONINFORMATION|MB_OK "$$0 = $0$\nЭтот продукт не установлен!" IDOK
  StrCmp $0 `-2` 0 +2
  MessageBox MB_ICONINFORMATION|MB_OK "$$0 = $0$\nОшибка в ProductCode!" IDOK
SectionEnd

Это было бы действительно весьма полезно... (для начала, сделать хотя бы только утилитку для извлечения ProductCode из MSI файла) »

C этим соглашусь на 100%, даже лучше свою функцию написать и зашить внутрь SFX или виде библиотеки с базой основных кодов продуктов msi: Microsoft .NET Framework, Microsoft Visual C++, MSXML, Java(TM).

[MKN]

попробуйте такое (без обработки ошибок, VBScript) »

А нельзя ли организовать скрипт так, чтобы он обрабатывал находящийся рядом с ним .MSI файл ?
Чтобы не прописывать ничего в самом скрипте (иначе какая уж тут автоматизация...)

[K.A.V.]

WScript.Echo strProductCode »

я так понимаю, что здесь выскакивает MesssageBox? Было бы неплохо скидывать значение в файл в любой форме (либо значение в первой строке текстового файла, либо конструкцией INI файла)

[MKN]

Вот такой скрипт нашёл (экспортирует всё из Property в xls файл ... Но наверное какую то малость можно подправить для ProductCode :

Код:

' Export File Table from a given MSI Database to an Excel Spreadsheet 

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 = "Property"

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

[Iska]

Лирическое отступление.

читать дальше »

Я пользую файловый менеджер «Far Manager», посему: я работаю с командной строкой Far Manager'а, у меня стандартным хостом WSH назначен консольный «cscript.exe» (вместо «wscript.exe»), я пользую полные пути к скриптам вместо того, чтобы плодить скрипты по папкам.

Так делаю я. У Вас, MKN, K.A.V., я понимаю, процесс работы организован несколько иначе. Скрипт из #141 я выложил, чтобы Вы могли оценить, работает ли вообще сие, и гож ли подобный подход для Вас. Стало быть, я попробую написать по Вашим предпочтениям, но Вы должны мне разъяснить, почему нужно именно так, а не иначе. Хорошо?

Насколько я понимаю, Far Manager'ом никто из Вас не пользуется (или он не является основным Вашим файловым менеджером), так?

Почему я сие хочу выяснить: дело в том, что в его командной строке очень легко, быстро и удобно указывать путь к WSH-скрипту, лежащему в папке A, как параметр скрипта — путь к некоему msi-файлу, лежащему в папке B, результат работы скрипта перенаправить в некий файл в папке C. Ну, а находиться (иметь текущим каталогом) при этом можно вообще некую папку D . Например:

Код:

cscript.exe "C:\Program Files\My Scripts\GetProductCodeFromMSI.vbs" "C:\Program Files\Windows Installer 4.5 SDK\TOOLS\orca.msi" 1>"E:\Песочница\0056\ProductCode.txt"

Или, например, просто получить «ProductCode» в редактор:

Код:

edit:< cscript.exe "C:\Program Files\My Scripts\GetProductCodeFromMSI.vbs" "C:\Program Files\Windows Installer 4.5 SDK\TOOLS\orca.msi"

Впрочем, сие есть моё видение, но буду признателен Вам, если Вы опишете, как работаете Вы, как предполагаете (и хотели бы) использовать скрипт в Вашей работе. Может быть, Вам нужно его вызывать из редактора, где Вы пишете скрипты NSIS. А пока…

А нельзя ли организовать скрипт так, чтобы он обрабатывал находящийся рядом с ним .MSI файл ? »

Можно. Например, так будут обрабатываться все MSI-файлы, находящиеся рядом с файлом скрипта:

Код:

Option Explicit

Const msiOpenDatabaseModeReadOnly = 0

Dim objFSO
Dim objFile

Dim strProductCode


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.GetFolder(objFSO.GetParentFolderName(WScript.ScriptFullName)).Files
	If UCase(objFSO.GetExtensionName(objFile.Name)) = UCase("msi") Then
		With WScript.CreateObject("WindowsInstaller.Installer")
			With .OpenDatabase(objFile.Path, 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
	End If
Next

WScript.Quit 0

я так понимаю, что здесь выскакивает MesssageBox? Было бы неплохо скидывать значение в файл в любой форме (либо значение в первой строке текстового файла, »

1. Использовать хост «cscript.exe» и перенаправлять вывод в нужный файл.
2. Прямой вывод в текстовый файл из скрипта. Вопрос — в какой именно: где задать его имя, где он будет находиться.

[MKN]

Iska,
Задача (в моём понимании) на данном частном отрезке "проекта SFX Creator" такова :

получить (экспортировать) из msi файла его ProductCode (и ещё ProductName), которые будут использоваться (записаны) в коде NSIS скрипта. Экспорт произвести в обыкновенный одноимённый txt файл. Например, в ProductCode.txt и ProductName.txt

О местонахождении : думаю, что лучшее местонахождение в процессе подготовки и работы, и msi файлов и результирующих файлов ProductCode.txt и ProductName.txt - это $TEMP. Но это для проекта.

Для работы же, предложенного тобой vbs скрипта, местонахождение и исходного *.msi и результирующего txt файлов - рядом со скриптом vbs.

PS DrWEB c ума сходит от этого скрипта и не даёт сохранять... Что делать ?

[MKN]

Если рассматривать эту часть проекта , как отдельную утилиту формирования NSIS кода для MSI установки, то происходить будет следующее :

Но сначала ещё немного лирики. На кой нам получать ещё и ProductName ? А на той, чтобы видеть над прогрессом установки не бестолковое мельтешение устанавливаемых файлов (или отсутствие оного), что обычно и наблюдаем по умолчанию, а видеть то, что конретно в данный момент устанавливается. Полученный ProductName и будем использовать в DetailPrint "Installing....

Следующий момент. Если с установкой одного msi пакета всё более-менее ясно, то как быть когда их придётся устанавливать несколько ?
Вот конкретный пример, когда я пересобирал отдельное приложение из гигантского пакета Adobe Creative Suite CS5 , для которого пришлось устанавливать аж 8 разных msi пакетов ! (Хотя по сути это были, расчленённые на отдельные дистрибутивы, составляющие их разных VC++... Но разрабам же виднее...)
Как быть с такими случаями в нашем случае ? Я бы предусмотрел в скрипте выбор для разных вариаций msi пакетов.
Например, для начала пусть присутствуют 9 чекбоксов для выбора. Тут есть нюансы, но про это позже...

Пакеты эти, надо предварительно подготовить, создав (для моего примера) 8 папок с именами 1...8, и в каждую из которых, поместить нужные msi дистпибутивы.

Т.е. , что получается :

Запускаем скомпилированный скрипт.

Отмечаем нужные для установки msi пакеты (msi1...msi8)

Отмеченные папки 1...8 с содержимым копируются в $TEMP. В каждую папку копируется файл vbs скрипта (чтобы не было путаницы).

Vbs скрипт начинает свою работу, создав в каждой папке ProductCode.txt и ProductName.txt.

Данные из ProductCode.txt и ProductName.txt заносятся в соответствующие переменные и записываются в код нового созданного файла msi.nsi. Где он будет создан, не критично. К примеру, в C:/myMSInsi

В этот файл msi.nsi записывается (пример на основе кода из справочника, наверное можно и иначе) :

Код:

!define MSIGETPRODUCTINFO '!insertmacro MsiGetProductInfo'
Var MSI_PRODUCT
!macro MsiGetProductInfo PRODUCTCODE PROPERTY
и т.д.

Section 1
  SetOverwrite on
  ${MSIGETPRODUCTINFO} "{переменная для кода продукта 1 msi пакета)}" "ProductName" 
  и т.д.
SectionEnd

Сколько выбрано MSI пакетов для установки - столько запишется и секций.

Ну и в конце "подчищаем" за собой, удаляя не нужное.

Готовый код из файла msi.nsi используем для дальнейшей работы.

Моё сочинение наверняка спорно, потому прошу принять участие в "доводке" и совершенствовании...

[kotkovets]

MKN, а почему бы всю работу не поручить "бейсику" скрипту vbs - пущай код возврата (установлен - не установлен по коду продукта и пути) пишет в файлик, далее код возврата анализирует код NSIS. Есть мысль по этому поводу - сделать плагин к NSIS на досуге.
Примерно так:
1. Исполняемый файл *.exe который заводится препроцессором NSIS и этот файл *.exe (vbs скрипт) заинклудит массив номерков в код NSIS на этапе компиляции проекта
2. Далее плагин на этапе инсталяции обрабатывает массив номерков возвращает код возврата NSIS
3. Код NSIS анализирует полученные данные от плагина.

[MKN]

а почему бы всю работу не поручить "бейсику" скрипту vbs »

К сожалению я не владею волшебством бейсика... И сдаётся мне что от vbs скрипта придётся отказаться из-за реакции на него антивирусов (пусть и не всех...).
Пользователь не должен страдать из-за этого. Если конечно Iska чего нибудь в скрипте не подправит...
И возможно придётся сконвертить vbs в exe.
Скрипт должен без проблем автономно запускаться на машинах пользователей, у которых есть проблемы либо с скриптоассоциациями , либо чего то скриптовое не установлено или повреждено. Сплошь и рядом встречаю машины, где не возможно так просто запустить файлы VBS...