***Este ejemplo es con notepad, sustituyelo por tu applicacion
oWsh = CreateObject("WScript.Shell"-)
cDesktopDir = oWsh.SpecialFolders("Desktop"-)
oLnk = oWsh.CreateShortcut(cDesktopDir + "Shortcut a Notepad.lnk"-)
oLnk.TargetPath = oWsh.ExpandEnvironmentStrings("%windir%"-) + "notepad.exe"
