アドバタイズドショートカットを通常のショートカットに変更する

やりたいこと

Visual Studio 2015 Installer Projects で作成したインストーラにて、アドバタイズドショートカットを通常のショートカットに変更する。

手順

1. 以下の内容のvbsを作成する。

   Option Explicit
   
   Const msiOpenDatabaseModeTransact = 1
   
   Dim msiPath : msiPath = Wscript.Arguments(0)
   
   Dim installer
   Set installer = Wscript.CreateObject("WindowsInstaller.Installer")
   Dim database
   Set database = installer.OpenDatabase(msiPath, msiOpenDatabaseModeTransact)
   
   Dim query
       query = "INSERT INTO Property(Property, Value) VALUES('DISABLEADVTSHORTCUTS', '1')"
   Dim view
   Set view = database.OpenView(query)
   view.Execute
   database.Commit
   

2. ソリューションエクスプローラでインストーラのプロジェクトを選択し、F4を押す。（右クリックのプロパティではだめ。）

3. プロジェクトのプロパティが開くので、PostBuildEventに以下のコードを入力する。

   "<vbsのパス>" "$(BuiltOuputPath)"