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

查看本文,了解实现目标的更简单方法:

RevitAddInUtility for 32 and 64 Bit Systems

• 添加两个文件,其中一个名为 RevitAddinUtility.dll 其他的 RevitAddinUtility64.dll
• 在PostBuild事件中,询问用户安装项目是否应为64位。

• 如果是,则更改文件名:

  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