'Repair Quick Launch
'Kelly Theriot 7/2004
'Kelly's Korner

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

a = "HKEY_CLASSES_ROOT\CLSID\{D82BE2B0-5764-11D0-A96E-00C04FD705A2}\"
WshShell.RegWrite a,"IShellFolderBand"

b = "HKEY_CLASSES_ROOT\CLSID\{D82BE2B0-5764-11D0-A96E-00C04FD705A2}\InProcServer32\"
WshShell.RegWrite b ,"%SystemRoot%\system32\SHELL32.dll", "REG_EXPAND_SZ"
WshShell.RegWrite b & "ThreadingModel","Apartment"


MsgBox "Quick Launch has been repaired",4096,"Finished!"

Set WshShell = Nothing