The printer script I have my username groupmembership is below if anyone has any ideas that would be great

Steve

;--------------------------Heading--------------------------------------
;**
;** Script: Default Printer Mappin
;** Version: 1.0
;** Created: Wednesday -August 1, 2001
;**
;** Author: Steve Beaver
;** E-mail: steve.beaver@cibc.com
;**
;-----------------------------------------------------------------------
$printsrv="\\MTLFP1\"
$defprinter=""
if ingroup("APRN1") $defprinter=($printsrv+"PRN1") gosub "printcheck" endif
if ingroup("APRN2") $defprinter=($printsrv+"PRN2") gosub "printcheck" endif
if ingroup("APRN3") $defprinter=($printsrv+"PRN3") gosub "printcheck" endif
if ingroup("APRN4") $defprinter=($printsrv+"PRN4") gosub "printcheck" endif
if ingroup("APRN5") $defprinter=($printsrv+"PRN5") gosub "printcheck" endif
if ingroup("APRN6") $defprinter=($printsrv+"PRN6") gosub "printcheck" endif
if ingroup("APRN7") $defprinter=($printsrv+"PRN7") gosub "printcheck" endif
if ingroup("APRN8") $defprinter=($printsrv+"PRN8") gosub "printcheck" endif
if ingroup("APRN9") $defprinter=($printsrv+"PRN9") gosub "printcheck" endif
if ingroup("APRN10") $defprinter=($printsrv+"PRN10") gosub "printcheck" endif
if ingroup("APRN11") $defprinter=($printsrv+"PRN11") gosub "printcheck" endif
if ingroup("APRN12") $defprinter=($printsrv+"PRN12") gosub "printcheck" endif
if ingroup("APRN13") $defprinter=($printsrv+"PRN13") gosub "printcheck" endif
if ingroup("APRN14") $defprinter=($printsrv+"PRN14") gosub "printcheck" endif
if ingroup("APRN15") $defprinter=($printsrv+"PRN15") gosub "printcheck" endif
if ingroup("APRN16") $defprinter=($printsrv+"PRN16") gosub "printcheck" endif
if ingroup("APRN17") $defprinter=($printsrv+"PRN17") gosub "printcheck" endif
if ingroup("APRN18") $defprinter=($printsrv+"PRN18") gosub "printcheck" endif
if ingroup("APRN19") $defprinter=($printsrv+"PRN19") gosub "printcheck" endif

SELECT
CASE ingroup("PRN1") $defprinter=($printsrv+"PRN1")
CASE ingroup("PRN2") $defprinter=($printsrv+"PRN2")
CASE ingroup("PRN3") $defprinter=($printsrv+"PRN3")
CASE ingroup("PRN4") $defprinter=($printsrv+"PRN4")
CASE ingroup("PRN5") $defprinter=($printsrv+"PRN5")
CASE ingroup("PRN6") $defprinter=($printsrv+"PRN6")
CASE ingroup("PRN7") $defprinter=($printsrv+"PRN7")
CASE ingroup("PRN8") $defprinter=($printsrv+"PRN8")
CASE ingroup("PRN9") $defprinter=($printsrv+"PRN9")
CASE ingroup("PRN10") $defprinter=($printsrv+"PRN10")
CASE ingroup("PRN11") $defprinter=($printsrv+"PRN11")
CASE ingroup("PRN12") $defprinter=($printsrv+"PRN12")
CASE ingroup("PRN13") $defprinter=($printsrv+"PRN13")
CASE ingroup("PRN14") $defprinter=($printsrv+"PRN14")
CASE ingroup("PRN15") $defprinter=($printsrv+"PRN15")
CASE ingroup("PRN16") $defprinter=($printsrv+"PRN16")
CASE ingroup("PRN17") $defprinter=($printsrv+"PRN17")
CASE ingroup("PRN18") $defprinter=($printsrv+"PRN18")
CASE ingroup("PRN19") $defprinter=($printsrv+"PRN19")
ENDSELECT
if $defprinter<>""
$printerexists=0 $lptprinter=0 $index=0
rintloop
$printer=enumvalue("$HKCUSMWNTCV\PrinterPorts",$index)
$printerport=readvalue("$HKCUSMWNTCV\PrinterPorts","$printer")
if @error=0
if $printer=$defprinter $printerexists=1 endif
if instr("$printerport","LPT") $lptprinter=1 endif
$index=$index+1
goto printloop
endif
if $printerexists=0
$=addprinterconnection("$defprinter")
if $lptprinter=0
$=setdefaultprinter("$defprinter")
endif
endif
endif
exit
rintcheck
if $defprinter<>""
$printerexists=0 $lptprinter=0 $index=0
rintloop
$printer=enumvalue("$HKCUSMWNTCV\PrinterPorts",$index)
$printerport=readvalue("$HKCUSMWNTCV\PrinterPorts","$printer")
if @error=0
if $printer=$defprinter $printerexists=1 endif
if instr("$printerport","LPT") $lptprinter=1 endif
$index=$index+1
goto printloop
endif
if $printerexists=0
$=addprinterconnection("$defprinter")
if $lptprinter=0
$=setdefaultprinter("$defprinter")
endif
endif
endif
RETURN