' -------------------------------------------------------------------------------- ' ' Script: SetQuickLaunch ' Author: PaulIA ' ' This script turns the Quick Launch toolbar on. ' ' -------------------------------------------------------------------------------- ' Declare variables ' -------------------------------------------------------------------------------- dim oAppl dim oShell ' Create objects ' -------------------------------------------------------------------------------- set oAppl = CreateObject("Shell.Application") set oShell = CreateObject("WScript.Shell" ) ' Open Taskbar Properties dialog ' -------------------------------------------------------------------------------- oAppl.TrayProperties WScript.Sleep(2000) ' This section toggles the "Show Quick Launch" toolbar setting. Notice that I said ' TOGGLE and not set. If it's already on, it will turn it off. I'm assuming that ' you're using this from a clean install where "Show Quick Launch" is off and the ' "Lock the taskbar" setting is off. You'll notice that I'm playing around with ' the "Lock the taskbar" setting. I do this so that the Quick Launch bar will set ' it's size right to show all of the icons which will not happen if you change the ' "Show Quick Launch" setting with the task bar locked. ' -------------------------------------------------------------------------------- oShell.SendKeys"%{q}" ' Toggle "Show Quick Launch" (On) oShell.Sendkeys"%{l}" ' Toggle "Lock the taskbar" (Off) oShell.Sendkeys"%{a}" ' Press the "Apply" button oShell.Sendkeys"%{l}" ' Toggle "Lock the taskbar" (On) ' Close the Taskbar Properties dialog ' -------------------------------------------------------------------------------- oShell.SendKeys"{ENTER}" ' Send "Enter" to exit dialog ' Clean up objects ' -------------------------------------------------------------------------------- set oShell = Nothing set oAppl = NothingSave this code as a .VBS file then run it to enable QL, or run it again to disable QL I do not remember who, where, when did it posted