如何使用 VBScript 更改 *.msi 中包含的文件的内容

发布于 2024-09-15 22:30:13 字数 601 浏览 4 评论 0原文

给定一个使用 VS2010 安装项目生成的安装程序，我想将 .NET DLL 替换为另一个，而不更改名称。

我已经根据此问题，交换“二进制”表中条目的内容。

我已经使用 Orca 找到了有问题的文件。它存在于唯一的内阁文件中。我已在“媒体”表中找到此内阁文件。我不确定如何更改此压缩文件 (API)，并且我怀疑我也必须更改 MSI 数据库中的一些信息（“MsiAssemblyName”表中程序集的“ProcessorArchitecture”记录）。

理由：我正在为 Autodesk Revit 2011 插件制作安装程序。这些是使用程序集 RevitAddinUtility.dll 注册的，该程序集必须与安装程序捆绑在一起。该程序集有两种版本，一种用于 32 位安装，一种用于 64 位安装。我需要在创建安装程序时换入正确的版本，以避免编写多个安装程序。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

地狱即天堂 2024-09-22 22:30:13

这是我同时使用的一种解决方法：

添加两个文件，一个名为 RevitAddinUtility.dll，另一个名为 RevitAddinUtility64.dll
在 PostBuild-Event 中，询问用户是否安装项目应该适用于 64 位。

如果是，则更改文件名：

If 6 = MsgBox("Build for 64bit?", 4, "Setup PostBuild event for DesignPerformanceViewer") 那么
    昏暗安装程序：设置安装程序 = Wscript.CreateObject("WindowsInstaller.Installer")
    昏暗数据库：设置数据库 = installer.OpenDatabase(PATH_TO_MSI, msiOpenDatabaseModeTransact)
    Dim sqlQuery : sqlQuery = "从文件中选择 `FileName`, `Component_`"
    昏暗视图：设置视图=database.OpenView(sqlQuery)
    查看.执行
    昏暗记录：设置记录= view.Fetch
    虽然不记录什么都不是        
        如果 InStr(record.StringData(1), "RevitAddInUtility.dll") 那么  
            record.StringData(1) = "REVITA~2.DLL|RevitAddInUtility32.dll"
            view.Modify msiViewModifyUpdate，记录    
        ElseIf InStr(record.StringData(1), "RevitAddInUtility64.dll") 然后    
            record.StringData(1) = "REVITA~1.DLL|RevitAddInUtility.dll"
            view.Modify msiViewModifyUpdate，记录    
        结束如果    
        设置记录 = view.Fetch
    文德
    数据库.提交   
结束如果

Here is a workaround I'm using in the meantime:

add both files, one named RevitAddinUtility.dll the other RevitAddinUtility64.dll
in the PostBuild-Event, ask the user if the setup project should be for 64bit.

if yes, then change the names of the files:

If 6 = MsgBox("Build for 64bit?", 4, "Setup PostBuild event for DesignPerformanceViewer") Then
    Dim installer : Set installer = Wscript.CreateObject("WindowsInstaller.Installer")
    Dim database : Set database = installer.OpenDatabase(PATH_TO_MSI, msiOpenDatabaseModeTransact)
    Dim sqlQuery : sqlQuery = "SELECT `FileName`, `Component_` FROM File"
    Dim view : Set view = database.OpenView(sqlQuery)
    view.Execute
    Dim record : Set record = view.Fetch
    While Not record Is Nothing        
        If InStr(record.StringData(1), "RevitAddInUtility.dll") Then  
            record.StringData(1) = "REVITA~2.DLL|RevitAddInUtility32.dll"
            view.Modify msiViewModifyUpdate, record    
        ElseIf InStr(record.StringData(1), "RevitAddInUtility64.dll") Then    
            record.StringData(1) = "REVITA~1.DLL|RevitAddInUtility.dll"
            view.Modify msiViewModifyUpdate, record    
        End If    
        Set record = view.Fetch
    Wend
    database.Commit   
End If

回复收藏 0 原文

~没有更多了~