Greetings

I'm just starting out with Kix scripts, and got some help setting up my 1st one.
Nothing Grand. I would just like some idea on how to improve it.

Currently I am doing Printers first then network drives.
I have trimmed the code below so not all the printer and drive Groups are shown, but I figure once you see the pattern you don't need all of them.

So any suggestions will be appreciated, bearing in mind i am just starting out \:\)

Thank you

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

$objSysInfo = CreateObject("ADSystemInfo")

"Computer dn: "+$objSysInfo.computername+@CRLF
$OU = +$objSysInfo.computername+@CRLF

Select
case INSTR ($OU , 'CC-ADMIN')
ADDPRINTERCONNECTION ("\\TWCPRT01\AfM")
ADDPRINTERCONNECTION ("\\TWCPRT01\AfC")
Sleep 3
SetDefaultPrinter ("\\TWCPRT01\AfM")
MessageBox ("Connecting you CC-ADMIN printers", "IT Department", 0, 4)

case INSTR ($OU , 'L-BABBAGE')
ADDPRINTERCONNECTION ("\\TWCPRT01\AfM")
ADDPRINTERCONNECTION ("\\TWCPRT01\LibraryM")
ADDPRINTERCONNECTION ("\\TWCPRT01\Libraryc")
ADDPRINTERCONNECTION ("\\TWCPRT01\AfC")
Sleep 3
SetDefaultPrinter ("\\TWCPRT01\AfM")
MessageBox ("Connecting you to the Aficio printer", "IT Department", 0, 4)

CASE 1
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