Pay attention. This is just a draft that YOU have to test. I will not be responsible for any damage or problems you cause on your domain. I am just making a suggestion to change your login script. I cannot test the script. It can contain errors.
Use the things you like. Modify it to your needs. And most of all, test it step by step (i.e. start with putting most of the code in remark by adding ; )
 Code:
; ===========================================================================================
;
; 	Script Information
;	
;	Title:       
;	Author:      Wim Rotty
;	Date:        
;	Description: 
;	
;
; ===========================================================================================

;;;;;;;;;;;;;;;;;;
; 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 $Printers, $Printer
Dim $Drives, $Drive

; Server Name Variables
Dim $fileserver
Dim $techserver
Dim $newtechsrv


;;;;;;;;;;;;;;;;;;;;;;;;
; Initialize variables ;
;;;;;;;;;;;;;;;;;;;;;;;;

$Drives = Split('f:|g:|h:|i:|j:|k:|l:|m:|n:|o:|p:|q:|r:|s:|t:|u:|v:|w:|x:|y:|z:','|')

$Printers = Split(''
	+ '\\A01\X7665FIN'   + '|'
	+ '\\A01\X7665MEM'   + '|'
	+ '\\A01\LJC2550PS3' + '|'
	+ '\\A01\LJC3800PS'  + '|'
	+ '\\A01\LJ4250NPS'  + '|'
	+ '\\A01\LJ4250TN'   + '|'
	+ '\\A01\LJ4250TN2'  + '|'
	+ '\\A01\LJ8100PCL6' + '|'
	+ '\\A01\LJ8100PS'   + '|'
	+ '\\A01\LJ4300PCL6' + '|'
	+ '\\A01\MCROPLXF24' + '|'
	+ '\\A01\OJ7310'     , '|')

; Server Name Variables
$fileserver = 'server1'
$techserver = 'server2'
$newtechsrv = 'server3'

;;;;;;;;
; Code ;
;;;;;;;;

; Disconnecting all network drives...
For Each $Drive in $Drives
	Use $Drive /del
Next

; Drive Mappings
Use k: '\\' + $fileserver + '\P'
Use l: '\\' + $fileserver + '\S'

If InGroup('fso_Of')
	Use j: '\\' + $fileserver + '\Of'
EndIf

If InGroup('fso_m')
	Use p: '\\' + $fileserver + '\Me'
EndIf

If InGroup('fso_member_i')
	Use i: '\\' + $fileserver + '\iM'
EndIf

If InGroup('fso_fi')
	Use s: '\\server1\SAGE'
	Use f: '\\' + $fileserver + '\F'
EndIf

If InGroup('fso_hr')
	Use x: '\\' + $fileserver + '\H'
EndIf

If InGroup('fso_me')
	Use p: '\\' + $fileserver + '\M'
EndIf

If InGroup('fso_ma')
	Use p: '\\' + $fileserver + '\Co'
EndIf

;IF INGROUP('fso_marketing_creative')
;  use q: '\\' + $fileserver + '\Creative'
;ENDIF

If InGroup('fso_qa')
	Use q: '\\' + $fileserver + '\QA'
EndIf

If InGroup('fso_cha')
	Use p: '\\' + $fileserver + '\C'
EndIf

If InGroup('fso_pr')
	Use h: '\\' + $fileserver + '\P'
EndIf

If InGroup('fso_marketing_space')
	Use o: '\\' + $fileserver + '\S'
EndIf

If InGroup('fso_KT')
	Use t: '\\' + $fileserver + '\K'
EndIf

If InGroup('fso_cha')
	Use m: '\\' + $fileserver + '\C'
EndIf

If InGroup('fso_ex')
	Use g: '\\' + $fileserver + '\E'
EndIf

If InGroup('fso_re')
	Use r: '\\' + $fileserver + '\R'
EndIf

If InGroup('fso_t')
	Use z: '\\' + $newtechsrv + '\T'
EndIf

If InGroup('fso_dw')
	Use w: '\\' + $fileserver + '\D'
EndIf

If InGroup('fso_Re')
	Use x: '\\' + $techserver+ '\R'
EndIf

If InGroup('fso_Re')
	Use x: '\\' + $techserver + '\Recordings\%USERNAME%'
EndIf


If InGroup('Non-Exempt Employees')
	Copy '\\server5\NET\PunchINPunchOUT.url' '%USERPROFILE%\Start Menu\Programs\Startup\PunchINPunchOUT.url'
EndIf

If Exist('%USERPROFILE%\desktop\DatabaseCalender.lnk')
	Del '%USERPROFILE%\desktop\DatabaseCalender.lnk'
EndIf

If Not @wksta = "server1" Or Not @wksta = "server2"
	If @wksta = "server4" Or @wksta = "server5"
		If @userid = "Administrator"
			$RC = WriteValue("HKEY_Current_user\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "StartMenuAdminTools", "NO", "REG_SZ")
		EndIf
	EndIf
	;Installs printers for everybody.
	If @wksta <> 'server6'
		; Installing Printers...
		If InGroup("fso_t")
			; Mailroom printer install
			If PriMapState('\\A01\XWC120PS') = ''
				$RC = AddPrinterConnection('\\A01\XWC120PS')
			EndIf
		EndIf
		For Each $Printer in $Printers
			If PriMapState($Printer) = ''
				$RC = AddPrinterConnection($Printer)
			EndIf
		Next
	EndIf
	;Changes setting for tabs in IE7 
	$RC = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing", "ShortcutBehavior", "0", "REG_DWORD")
	
	;Turns Internet Explorer start page to blank, enables recover deleted items in Outlook, and sets IM and AutoArchive Preferences
	$RC = WriteValue("hkey_Current_user\Software\Microsoft\Internet Explorer\Main", "Window Title", "Provided by A A", "REG_SZ")
	$RC = WriteValue("hkey_Current_user\Software\Microsoft\Office\11.0\Outlook\IM", "Enabled", "0", "REG_DWORD")
	$RC = WriteValue("hkey_Current_user\Software\Microsoft\Office\11.0\Outlook\Preferences", "DoAging", "0", "REG_DWORD")
EndIf

;;;;;;;;;;;;;;;;;;;;;;;;
; Personal UDF Section ;
;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;
; UDF Section ;
;;;;;;;;;;;;;;;

; Do not forget to add the PriMapState UDF