[kotkovets]

MKN, я имел еще виду исполняемый файл для этапа компиляции на с++ - тут придется попотеть), как дополнение к плагину, плагин определения установки msi сделаю после того, как свой плагин для работы с процессами закончу.
кстати еще один код определяющий, какие продукты msi установленные в системе, рядом файлик в формате ini появится.

Код:

Dim installer, productcode, text, fso

Set fso = CreateObject("Scripting.FileSystemObject")
Set text = fso.CreateTextFile("msi.ini", True)
Set installer = CreateObject("WindowsInstaller.Installer")

text.writeline ("[Products]")
For Each productcode In installer.products
   text.writeline (installer.productinfo (productcode, "InstalledProductName") & " = " & productcode)
   'text.writeline (installer.productinfo (productcode, "InstalledProductName") & " v(" & installer.productinfo (productcode,"VersionString") & ") = " & productcode)
Next

[Iska]

Экспорт произвести в обыкновенный одноимённый txt файл. Например, в ProductCode.txt и ProductName.txt »

Ясно.

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

Результирующие файлы ложатся рядом с «*.msi» — хорошо. Рядом со скриптом — это мне не нравится. Не есть правильно иметь кучу дубликатов скрипта по разным папкам.

На кой нам получать ещё и ProductName ? »

Я хотел сразу и «ProductName» добавить в скрипт, но изначально такой вопрос не стоял — я и не стал делать сие.

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

Можно сделать, но мне нужно чёткое пояснение куда писать полученные значения «ProductName» и «ProductCode». По приведённому примеру мне не ясно.

Можно и просто поместить полученные значения в буфер обмена в нужном формате.

Подход:

1. Исполняемый файл *.exe который заводится препроцессором NSIS и этот файл *.exe (vbs скрипт) заинклудит массив номерков в код NSIS на этапе компиляции проекта »

мне кажется более правильным. Кстати, а почему не просто *.vbs, безо всяких компиляций?

А в чём пишете NSIS-проекты? Скажем, редактор SciTE умеет передавать выделенный текст запускаемой внешней программе, равно скрипту, как аргумент командной строки, и получать результат работы из её stdout, который затем может быть сразу вставлен в редактируемый текст.

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

Мне сложно что-либо сказать вразумительное по поводу столь неподобающего поведения DrWEB.

И сдаётся мне что от vbs скрипта придётся отказаться из-за реакции на него антивирусов (пусть и не всех...). Пользователь не должен страдать из-за этого. Если конечно Iska чего нибудь в скрипте не подправит... И возможно придётся сконвертить vbs в exe. »

Конвертация скрипта в исполняемый файл только усилит подозрительность антивирусов.

Скрипт должен без проблем автономно запускаться на машинах пользователей, у которых есть проблемы либо с скриптоассоциациями , либо чего то скриптовое не установлено или повреждено. Сплошь и рядом встречаю машины, где не возможно так просто запустить файлы VBS... »

«Сплошь и рядом» — не встречал такого.

В принципе, сбитые ассоциации легко обходятся прямым указанием исполняемого файла и пути к скрипту:

Код:

C:\WINDOWS\system32\wscript.exe "E:\Песочница\0057\GetProductCodeFromMSI.vbs"

или

Код:

C:\WINDOWS\system32\cscript.exe "E:\Песочница\0057\GetProductCodeFromMSI.vbs"

Не установлено — как такое может быть? Это ведь один из основных компонентов системы. Библиотеки, кроме того, входят в состав всех IE. Если повреждено — надо восстанавливать.

Очередное приближение:

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

Код:

Option Explicit

Const msiOpenDatabaseModeReadOnly = 0


Dim strArg
Dim strProperties
Dim strAllValues

Dim objDatabase


If WScript.Arguments.Count <> 0 Then
	strAllValues = ""
	
	For Each strArg In WScript.Arguments
		With WScript.CreateObject("Scripting.FileSystemObject")
			If .FileExists(strArg) Then
				If UCase(.GetExtensionName(strArg)) = UCase("msi") Then
					Set objDatabase = WScript.CreateObject("WindowsInstaller.Installer").OpenDatabase(strArg, msiOpenDatabaseModeReadOnly)
					
					strProperties =                 GetMSIProperty(objDatabase, "ProductName")    & vbCrLf
					strProperties = strProperties & GetMSIProperty(objDatabase, "ProductVersion") & vbCrLf
					strProperties = strProperties & GetMSIProperty(objDatabase, "ProductCode")    & vbCrLf
					
					With .CreateTextFile(.BuildPath(.GetParentFolderName(strArg), .GetBaseName(strArg) & ".MSIProperties.txt"), True, True)
						.Write strProperties
						.Close
					End With
					
					strAllValues = strAllValues & strProperties & vbCrLf
					
					Set objDatabase = Nothing
				Else
					WScript.Echo "File [" & strArg & "] in not a MSI file."
				End If
			Else
				WScript.Echo "File [" & strArg & "] not found."
			End If
		End With
	Next
	
	Copy2Clipboard strAllValues
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <msi file 1> <msi file2> … <msi file N>"
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetMSIProperty(objDatabase, strProperty)
	With objDatabase.OpenView("SELECT * FROM Property WHERE Property = '" & strProperty & "'")
		.Execute()
		
		With .Fetch()
			GetMSIProperty = .StringData(1) & ":" & .StringData(2)
		End With
		
		.Close
	End With
End Function
'=============================================================================

'=============================================================================
Sub Copy2Clipboard(strValue)
	With WScript.CreateObject("InternetExplorer.Application")
		.Navigate("about:blank")
		
		.document.parentWindow.clipboardData.setData "text", strValue
		.Quit
	End With
End Sub
'=============================================================================

Скрипт принимает msi-файлы аргументами командной строки. Можно, например, создать ярлык к скрипту и бросать на него msi-файлы. В папке рядом с каждым msi-файлом будут созданы одноимённые им текстовые файлы по принципу «<Имя msi-файла>.MSIProperties.txt». В число извлекаемых свойств я включил имя пакета — «ProductName», версию — «ProductVersion» и «ProductCode». Помимо того данная информация будет помещена в буфер обмена (будет ли последнее работать с версиями IE > 6 — не знаю) в виде, наподобие:

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

Код:

ProductName:MsiVal2
ProductVersion:4.0.6001.000
ProductCode:{CC14CF6A-7D60-413A-934C-3150D422DA6D}

ProductName:Orca
ProductVersion:4.0.6001.0000
ProductCode:{4F34C602-4D6D-470D-A2A0-59E4F25DDBF2}

ProductName:Norton AntiVirus Help
ProductVersion:15.0
ProductCode:{E3EFA461-EB83-4C3B-9C47-2C1D58A01555}

[kotkovets]

А в чём пишете NSIS-проекты? »

не поверите, часто всего приходится (в силу разных причин) обычным блокнотом или Notepad ++
попробЫвал SciTE - понравилось...
и плагин для msi уже написал для NSIS относительно недавно:
http://forum.oszone.net/showpost.php?p=1684697

[Iska]

Спасибо, ясно.

и плагин для msi уже написал для NSIS относительно недавно: »

Поскольку я имею слабое представление, хочу уточнить, правильно ли я понял: написанный Вами плагин предназначен для работы изнутри самой инсталляции, непосредственно в процессе установки, а не для сборки самой инсталляции, так?

[kotkovets]

а не для сборки самой инсталляции, так? »

да, все верно, даже можно обойтись без сборки самой инсталляции, т.е имеем некий msi продукт в проекте NSIS - в процессе распаковки продукта во временную папку проверяем плагином на предмет нужных задач. Единственный недостаток - пакет msi всегда нужно распаковывать.

[Iska]

kotkovets, благодарствую за разъяснение.

[K.A.V.]

Хотелось бы вспомнить вопрос, который я так и не решил, насчет разброса команд по компонентам

Обращаюсь к вам, MKN, т.к. проект кроме вас больше никто не обсуждает, и идеи новые приносите только вы, такое ощущение, что программу только для вас пишу

Вообщем хочу продолжить разработку программы, т.к. ну просто не могу я вот так смотреть на своё творение, как оно "умирает", хотя на него я потратил очень много времени и сил

Будем навёрстывать упущенное

[MKN]

K.A.V.,
Думаю, что не один я горячо приветствую любые твои реализации в улучшении и расширении функционала SFX Creator_а.
Другие заинтересованные пользователи NSIS наверное просто молча одобряют твои действия и собираются с мыслями...

так и не решил, насчет разброса команд по компонентам »

Это о чём мы говорили... Два месяца уж прошло. О вариантах определения установленного ПО ? Вроде как к уже вышесказанному добавить нечего. Нет, есть чего - добавить в SFX Creator использование замечательного плагина getmsi от kotkovets, для определения установленных MSI пакетов.

Оч. полезно было бы добавить инструментарий для организации ассоциаций файлов.

И есссно дополнить программу необходимыми функциями, как то : выбор устанавливаемых компонентов, работа в x64 ОС, определение типа ОС, выбор различных переменных для разных типов ОС, работа с процессами, с службами, с "сетевыми делами"... Поле дополнений и расширений, не пахано и обширно до бесконечности...

ps А также, на перспективу, возобновить реализацию идеи - при создании инсталлятора предусмотреть создание отдельного пользовательского дистрибутива из выбранных компонентов. Эту идею уже успешно реализовал kotkovets (правда для конкретного ПО). На мой дилетансткий взгляд, реализовал сложновато и не универсально... Наверное, если kotkovets присоединиться к доработке проекта SFX Creator_а, то будет боольшая польза.

А также, очень интересна идея, по упрощению создания различных кастомных страниц с выбираемым набором функций управления.
Типа, как реализовано в NSIS Dialog Designer http://coolsoft.altervista.org/en/nsisdialogdesigner , но лучше...

[FreshMen85]

т.к. проект кроме вас больше никто не обсуждает »

Ну я как бы перестал в эту тему заглядывать, потому что вы как-то писали что ушли служить, вот собственно я и подумал что проект скорей всего загнется, в основном после армии у людей резко меняется мировосприятие, ну а что собственно тогда мне и начинать то было знакомство с вашей программой если до логичного конца я не расчитывал что дело дойдет. Ну теперь вижу вашу четкую позицию по отношению к программе, поэтому буду заходить в эту тему почаще, ну и собственно как-то всё таки вливаться в дискуссию (разбавлять ваш с MKM дует).

[HiddeN_Ra]

Доброго дня уважаемое сообщество.
Скажите пожалуйста как мне прописать команду в SFX Creator'е,
Как мне прописать, чтоб перед установкой файла сделать проверку запущен он или нет и если он уже исполнятся, пропустить его установку и запуск.
Предполагаю, что делается через if exist. Подскажите как правильно прописать