使用powershell将文件添加到MSI二进制表

Question

我想添加一个自定义操作，使用powershell从二进制表中调用VBScript。 我到处搜索找到PowerShell代码来做到这一切似乎都是VBScript。我试图自己做，但它总是错误的。 有没有人能够使用PowerShell将文件添加到二进制表？ 真的很感激任何帮助。 这是我到目前为止有： 这里是我的代码至今： 的VBScript

Dim query 
query="INSERT INTO `Binary` (`Name`, `Data`) VALUES ('NewBlob', ?)" 
Set Installer = CreateObject("WindowsInstaller.Installer") 

Set Record = Installer.CreateRecord(1) 
Record.SetStream 1, "C:\Users\Admin\Desktop\coder\CA_Test.vbs" 

Set Database = Installer.OpenDatabase("C:\Users\Admin\Desktop\7z920.msi", 1) 

Set View = Database.OpenView(query) 
View.Execute Record 
Database.Commit 

Powershell的

$windowsInstaller = New-Object -ComObject WindowsInstaller.Installer    
$database1 = $windowsInstaller.GetType().InvokeMember(
    "OpenDatabase", 
    "InvokeMethod", 
    $Null, 
    $windowsInstaller, 
    @($database1Path, $msiOpenDatabaseModeReadOnly) 
) 

$database2 = $windowsInstaller.GetType().InvokeMember(
    "OpenDatabase", 
    "InvokeMethod", 
    $Null, 
    $windowsInstaller, 
    @($database2Path, $msiOpenDatabaseModeTransact) 
) 
$query = "INSERT INTO ``Binary``(``Name``,``Data``) VALUES ('Callsetstatuskey', ?)" 
$View = $database2.GetType().InvokeMember(
    "OpenView", 
    "InvokeMethod", 
    $Null, 
    $database2, 
    ($query) 
) 

$Record = $windowsInstaller.GetType().InvokeMember ("CreateRecord", "InvokeMethod", $Null, $windowsInstaller, 1) 
$Record.GetType().InvokeMember("SetStream", "InvokeMethod", $Null, $windowsInstaller.Record, @($SetstausKeyPath, 1)) 

$View.GetType().InvokeMember("Execute", "InvokeMethod", $Null, $View, $Record)  
$View.GetType().InvokeMember("Close", "InvokeMethod", $Null, $View, $Null) 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($View) | Out-Null                    

还有就是在PowerShell脚本更大量的代码创建功能，组件添加注册表项属性和自定义操作。除了在二进制表中添加文件之外，一切都很好。

感谢， 吉姆

Answer 1

吉姆，我想我在这里回答你的问题：http://www.alkanesolutions.co.uk/2017/02/10/write-windows-installer-binary-stream-using-powershell/

$query = "INSERT INTO `Binary` (`Name`,`Data`) Values(?,?)" 
$View = $database2.GetType().InvokeMember("OpenView","InvokeMethod",$Null,$database2,($query)) 
$binaryrecord = $windowsInstaller.GetType().InvokeMember("CreateRecord", "InvokeMethod", $null, $windowsInstaller, 2) 
$binaryrecord.GetType().InvokeMember("StringData", "SetProperty", $null, $binaryrecord, @(1, "AlkaneBinary")) 
$fileToStream = "C:\Alkane\AlkaneFile.txt" 
$binaryrecord.GetType().InvokeMember("SetStream","InvokeMethod", $null, $binaryrecord, @(2, $fileToStream)) 
$View.GetType().InvokeMember("Execute", "InvokeMethod", $Null, $View, $binaryrecord) 
$View.GetType().InvokeMember("Close", "InvokeMethod", $Null, $View, $Null) 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($View) | Out-Null 

感谢。