'ensure Quick Launch is available for Users who have been barred 
'from using context menus
Option Explicit
Dim objShell
Dim intRun
Dim strPath

WScript.Sleep (1000) 'needs time else doesn't load QL

strPath = "\\<serverName>\path\toggleQL.exe"
'UNC path to toggleQL.exe on server
'toggleQL 1 adds QL to taskbar, .. 0 removes it

Set objShell = CreateObject("Wscript.Shell") 

intRun = objShell.Run ("cmd.exe /c " & strPath & " 1", 0, True)