Someone

$cc  = "1584" 			; cost center
$srv = "\\Washington\"		; Print Server 
$bp  = "2"			; Beginning Printer Number
$ep  = "7"			; Ending Printer Number
$pgp = "WASPrint"		; Printer Group Prefix
$pnp  = "Printer"		; Printer Name Prefix

$pn = $bp

use p: $srv + priv_ + @userid
use s: $srv + shared
use u: $srv + share_ + @userid


while ($pn <= $ep)

	IF INGROUP ($cc)
		AddPrinterConnection ($srv + $pnp + $pn)
			If Ingroup ($pgp + $pn)
				SetDefaultPrinter ($srv + $pnp + $pn)
			EndIF
	EndIF
$pn = (1 + $pn)
loop