Verknüpfung per VBS in Menüordner unter Programme

Hallo Leute,

ich bräuchte mal etwas Hilfe in VBS...

bastel gerade an einer Clientconfig die aus vbscripten besteht..
jetzt möchte ich für eine Option einen Menüeintrag machen...
den Menüordner Install unter Start\Programm\ erzeuge ich auch per Script was auch geht..
nur halt die Setup-Verknüpfung in Install funst nicht

direckt im Prog Ordner ging es...

hier so ....

Set Shell = CreateObject("WScript.Shell")
MenuePath = Shell.SpecialFolders("Programs")
Set link = Shell.CreateShortcut(MenuePath & "\Setup.lnk")
link.Arguments = "1 2 3"
link.Description = "Setup Config Script"
link.HotKey = "CTRL+ALT+SHIFT+X"
link.IconLocation = "c:\Install\SETUP\Icons\Setup.ico,2"
link.TargetPath = "c:\Install\SETUP\start_setup_script.bat"
link.WindowStyle = 1
link.WorkingDirectory = "c:\Install\SETUP"
link.Save

aber mit Install gehts nich...

Set fso = CreateObject("Scripting.FileSystemObject")  
Set Shell = CreateObject("WScript.Shell")  
MenuePath = Shell.SpecialFolders("Programs") & "\Install"  
If Not fso.FolderExists(MenuePath) Then fso.CreateFolder(MenuePath) 'Nur zur Sicherheit ...  
Set link = Shell.CreateShortcut(MenuePath & "\Setup.lnk")  
link.Arguments = "1 2 3"  
link.Description = "Setup Config Script"  
link.HotKey = "CTRL+ALT+SHIFT+X"  
link.IconLocation = "c:\Install\SETUP\Icons\Setup.ico,2"  
link.TargetPath = "c:\Install\SETUP\start_setup_script.bat"  
link.WindowStyle = 1
link.WorkingDirectory = "c:\Install\SETUP"  
link.Save