You also have some weird characters up top, like the random '+'. And since I'm picky about proper indentation. I would indent it all correctly as well. Are you using GOTO's somewhere else in the script? If not the :END label at the bottom is not needed.

 Code:
; *******************

$OU = CreateObject("ADSystemInfo").computername
"Computer dn: "+$OU ?

Select
   case INSTR($OU, 'CC-ADMIN')
      $nul = AddPrinterConnection("\\TWCPRT01\AfM")
      $nul = AddPrinterConnection("\\TWCPRT01\AfC")
      $nul = SetDefaultPrinter("\\TWCPRT01\AfM")
      $nul = MessageBox("Connecting you CC-ADMIN printers", "IT Department", 0, 4)
   case INSTR($OU, 'L-BABBAGE')
      $nul = AddPrinterConnection("\\TWCPRT01\AfM")
      $nul = AddPrinterConnection("\\TWCPRT01\LibraryM")
      $nul = AddPrinterConnection("\\TWCPRT01\Libraryc")
      $nul = AddPrinterConnection("\\TWCPRT01\AfC")
      $nul = SetDefaultPrinter("\\TWCPRT01\AfM")
      $nul = MessageBox("Connecting you to the Aficio printer", "IT Department", 0, 4)
   CASE 1
      $nul = MessageBox("No Printers Connected", "IT Department", 0, 4)
EndSelect

; -------

;Mapped Drive

use k: "\\zeus\Intranet$" 
use q: "\\zeus\Photos$"
use s: "\\zeus\Sherston$" 
use o: "\\zeus\staff-pupil$" 
use x: "\\zeus\applications"  
use y: "\\zeus\%username%$"

If InGroup("GROUP-ADMIN")
   use j: "\\TWC-3cx\Sync" 
   use r: "\\zeus\Reports$"
   use w: "\\zeus\Staffdata$"
EndIf

;End_of_Script
:End

Exit

Edited by ShaneEP (2012-10-19 04:50 PM)