;************************************************************************* 

; Script Name: EnableQLToolbar 

; Author:      Wim Rotty 

; Date:        2008/9/11 

; Description: Enable Quick Launch Toolbar only if it is disabled 

;*************************************************************************  



;;;;;;;;;;;;;;;;;; 

; Script Options ; 

;;;;;;;;;;;;;;;;;; 



If Not @LOGONMODE

	Break On

Else

	Break Off

EndIf

Dim $RC

$RC = SetOption("Explicit", "On")

$RC = SetOption("NoMacrosInStrings", "On")

$RC = SetOption("NoVarsInStrings", "On")

If @SCRIPTEXE = "KIX32.EXE"

	$RC = SetOption("WrapAtEOL", "On")

EndIf



;;;;;;;;;;;;;;;;;;;;; 

; Declare variables ; 

;;;;;;;;;;;;;;;;;;;;; 



DIM $TaskbarWinXP



;;;;;;;; 

; Code ; 

;;;;;;;; 



; -- QL: Enable Quick Launch Toolbar 

; Check if OS is Windows XP 

If @DOS = "5.1"

	; $TaskbarWinXP = ReadValue('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop','TaskbarWinXP')

	$TaskbarWinXP = ReadValue('HKEY_USERS\'+@SID+'\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop','TaskbarWinXP')

	; Check if Quick Launch Toolbar is disabled

	If 

	 ; Check if RegName TaskbarWinXP exists 

	 @ERROR<>0 

	 Or 

	 ; Check if the Value for TaskbarWinXP is 248 chars long 

	 Len($TaskbarWinXP)=248 And 

	 ; Check the left 64 chars of the Value for TaskbarWinXP 

	 Left($TaskbarWinXP,64)='0c000000080000000200000000000000aa4f2868486ad0118c7800c04fd918b4' And 

	 ; Check the right 180 chars of the Value for TaskbarWinXP 

	 Right($TaskbarWinXP,180)='0000600d0000000000001e00000000000000000000001e0000000000000001000000010000008'+

	 'b8a0d543f1c324e8132530f6a5020901d00000060050000000000001c00000000000000000000001c0000000000000001000000'

		; ? "Disabled"

		Shell '"%ComSpec%" /C "'+@LSERVER+'\NETLOGON\toggleql.exe" 1'

	; Else

		; ? "Enabled"

	EndIf

EndIf