![]() Loading |
VBScript |
JavaScript |
Powershell |
Search Options: Add a Shortcut to the Quick Launch Tray
|
||
Set objShell = CreateObject("WScript.Shell")
Set colEnvironmentVariables = objShell.Environment("Volatile") strFolder = colEnvironmentVariables.Item("APPDATA") & _ "\Microsoft\Internet Explorer\Quick Launch" Set objShortCut = objShell.CreateShortcut(strFolder & _ "\Notepad.lnk") objShortCut.TargetPath = "Notepad.exe" objShortCut.Description = "Open Notepad" objShortCut.HotKey = "Ctrl+Shift+N" objShortCut.Save | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: |