All pastes #115598 Raw Edit

Something

public text v1 · immutable
·published 2006-08-04 18:44 UTC
rendered paste body
$cc  = "1919"				; Cost Center
$psrv = "\\HQprint01\"			; Print Server 
$fsrv = "\\filedepot\"			; File Server
$bp  = "1"					; Beginning Printer Number
$ep  = "2"					; Ending Printer Number
$pgp = "printer"				; Printer Group Prefix
$pnp  = "Printer0"			; Printer Name Prefix
$pn = $bp


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


while ($pn <= $ep)

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