我致力于从 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