[Quick Launch vbs Toggler]

Follow-up to the post from Hoppel, just noticed an item that might warrant a second look. In the example script a plus sign was used to enable the "Show Quick Launch". After some quick testing and research from Microsoft's MSDN site, I noticed that the keys to send to enable the option would actually be "+=", not "+". The resultant code from xOrcist's example would look something like this:

set WshShell = WScript.CreateObject("WScript.Shell") 

WshShell.SendKeys("^{ESC}") 
WScript.Sleep 100 
WshShell.SendKeys("{TAB}") 
WScript.Sleep 100 
WshShell.SendKeys("%~") 
WScript.Sleep 100 
WshShell.SendKeys("{TAB}{TAB}{TAB}{TAB}") 
WshShell.SendKeys("+=")                          ' or WshShell.SendKeys("-") 
WshShell.SendKeys("{TAB}{TAB}{TAB}") 
WshShell.SendKeys("~")

It does work with the right keys, including the minus sign to disable, even if the sleep time is lowered to 5 milliseconds.

A possibly neater solution might be that posted by certit in another thread "Show Quick Launch":

To enable the quick launch or to resize it can easily be done using the SOETool from soetool.net.

It uses only API's and works on all systems.

Just register the DLL and then its two lines of code in VBScript

Set oTaskbar = CreateObject("soetool.Taskbar")

oTaskbar.QuickLaunch = True

-cmc