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