Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\Programm.lnk")
link.description = "Beschreibung"
link.TargetPath = "C:\foo\setup.exe"
link.WindowStyle = 3
link.WorkingDirectory = "C:\foo"
link.Save