コマンドプロンプトやバッチファイルでショートカット.lnkのプロパティを変更できませんか。

    Option Explicit



    Call Main()



    Private Sub Main()

        Call ShortcutLinkChange("C:\Shortcut.lnk", "C:\MakiMakiLove\MosaMosaAA.exe")

    End Sub



    Private Sub ShortcutLinkChange(stFilePath, stTargetPath)

        Dim WshShell 

        Set WshShell = WScript.CreateObject("WScript.Shell")



        Dim oShellLink

        Set oShellLink = WshShell.CreateShortcut(stFilePath)



        oShellLink.TargetPath = stTargetPath

        oShellLink.WindowStyle = 1

        oShellLink.Description = "サンプル"



        Call oShellLink.Save()

    End Sub