Jak dodać/zaktualizować właściwość wewnątrz MSI z wiersza polecenia?

Question

Mam instalator MSI, w którym muszę dodać lub zmodyfikować właściwość krótkiego tekstu z wiersza polecenia.

To musi zostać wykonane po zbudowaniu instalatora; Nie mogę zmodyfikować procesu, który tworzy instalator w pierwszej kolejności. Musi być również wykonany bez nagłówka ze scenariusza.

Kiedy mówię "właściwość", może to być właściwość MSI, wartość, która zostanie zapisana do rejestru podczas instalacji, lub jakikolwiek inny mechanizm, który może uzyskać ten krótki tekst niestandardowy do zainstalowanej aplikacji, gdy jest uruchomiony.

Answer 1

przykładzie VBScript, które można wykorzystać do aktualizacji (lub dodać) nieruchomość post- budować ...

Option Explicit 

Const MSI_FILE = "myfile.msi" 


Dim installer, database, view 

Set installer = CreateObject("WindowsInstaller.Installer") 
Set database = installer.OpenDatabase (MSI_FILE, 1) 

' Update 
Set view = database.OpenView ("UPDATE Property SET Value = '" & myproperty & "' WHERE Property = 'MYPROPERTY'") 

' .. or Add (Insert) 
Set view = database.OpenView ("INSERT INTO Property (Property, Value) VALUES ('MYPROPERTY', '" & myproperty & "')") 
view.Execute 


Set database = Nothing 
Set installer = Nothing 
Set view = Nothing 

aby uzyskać więcej informacji, zapoznaj się z SDK Instalatora Windows (część Windows SDK), istnieje grono przykładowych skryptów, które można użyć w wierszu polecenia, aby wykonać różne zadania manipulacji MSI, na przykład WiRunSQL.vbs umożliwia wykonywanie dowolnych instrukcji SQL na MSI.

Answer 2

c:\> msiexec /i yourmsi.msi THEPROPERTYNAME=valueofproperty 

Aby uzyskać więcej informacji, wpisz msiexec w linii poleceń.

EDIT: albo zmiany samego pliku msi za pomocą SQL i aktualizując właściwość w tabeli Właściwości: http://msdn.microsoft.com/en-us/library/aa372021(VS.85).aspx http://msdn.microsoft.com/en-us/library/aa368568(VS.85).aspx

Answer 3

To jest dodanie do odpowiedzi @saschabeaumont w '09. Obecnie używa dotNet 4.0

Option Explicit 

Const MSI_FILE = "myFilePath.msi" 
Const PROPERTY_STRING_Value = "FooBar" 

Dim installer, database, view 

Set installer = CreateObject("WindowsInstaller.Installer") 
Set database = installer.OpenDatabase (MSI_FILE, 1) 

' Update 
Set view = database.OpenView ("UPDATE Property SET Value = '" & PROPERTY_STRING_Value & "' WHERE Property = 'MYPROPERTY'") 

' .. or Add (Insert) 
Set view = database.OpenView ("INSERT INTO Property (Property, Value) VALUES ('MYPROPERTY', '" & PROPERTY_STRING_Value & "')") 

view.Execute() 
database.Commit() 

Set database = Nothing 
Set installer = Nothing 
Set view = Nothing