Předkládám funkční script:

Set WshShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WshShell.SpecialFolders("Desktop") 
Lnk_Title = "\Jméno_zástupce.lnk"
Set ShortCut = WshShell.CreateShortCut(DesktopPath & Lnk_Title)
ShortCut.TargetPath = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%\  ProgramXY\DATA\")
ShortCut.Save 

Pokud by zástupce měli mít na ploše všichni uživatelé, tak by druhý řádek vypadal takto:

DesktopPath = WshShell.SpecialFolders("AllUsersDesktop")

Stačí Ctrl+C a Ctrl+V, vložit do notepadu, v notepadu uložit a přejmenovat příponu .txt na .vbs
vymazaná reklama (los)