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...
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...
Please also mark the comments that contributed to the solution of the article
Content-Key: 66172
Url: https://administrator.de/contentid/66172
Printed on: April 19, 2024 at 05:04 o'clock
6 Comments
Latest comment
Hallo MichaZ!
Was geht dabei nicht? Für mich schaut das Script soweit OK aus, und mit der Ergänzung des "MenuePath"s läuft es bei mir auch:
Grüße
bastla
Was geht dabei nicht? Für mich schaut das Script soweit OK aus, und mit der Ergänzung des "MenuePath"s läuft es bei mir auch:
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
Grüße
bastla