use s: \\server1\share\students\Grade1
use u: \\server1\share\Games
use z: \\server1\share\scanner
use y: \\mirror\cd5039
use x: \\mirror\cd5002
use W: \\mirror\cd5040
use V: \\mirror\cd5031
use R: \\mirror\cd5032
Assign Printers
; -----------------------------------------------------------
:AssignPrinters
? "Assigning Printers... "
; Add these printers....
$temp_str = substr(@WKSTA,1,3)
select
;Computer Room
case $temp_str = "Comprm-"
AddPrinterConnection("\\server1\Hp Computer Room")
SetDefaultPrinter("\\server1\Hp Computer Room")
case 1
;Do Nothing - Handles any unexpected returns of Case add you own code here
EndSelect
