1

我致力于从 MSI 外部获取组件密钥文件的完整目录路径,以及使用 VBScript 的广告快捷方式。

我读到我们可以使用MsiGetComponentPath&MsiGetShortcutTarget函数。下面是我放在一起的代码,但我没有得到我想要的输出 - 这是基于快捷方式表中组件列的密钥文件的路径。任何帮助表示赞赏。

Set Installer = CreateObject("WindowsInstaller.Installer")
Set Database = Installer.OpenDatabase("C:\StackExchange_Test.msi", 0) 
Set View = Database.OpenView("SELECT `Target`,`Component_` From `Shortcut`")
View.Execute
Set rec = View.Fetch
Do While (rec Is Nothing) = False 
  MsgBox(rec.StringData(1) & " " & rec.StringData(2) & " " & rec.StringData(3) _
    & " " & rec.StringData(4) & " " & rec.StringData(5))
  Path = Installer.ComponentPath (FnMSIFetch("ProductCode"), rec.StringData(2))
  Msgbox (Path)
  Set rec = View.Fetch
Loop

Function FnMSIFetch(varProperty)
  Set Database = Installer.OpenDatabase("C:\StackExchange_Test.msi", 0)
  Dim SQL
  SQL = "SELECT * FROM Property WHERE Property = '" & varProperty & "'"
  Dim View                                  
  Set View = Database.OpenView(SQL)                     
  View.Execute
  Dim Record
  Set Record = View.Fetch
  FnMSIFetch=Record.StringData(2)
End Function
4

0 回答 0