;DEBUG ON
;BREAK ON
DIM $groups
DIM $printers
DIM $printserver
DIM $grp
DIM $prt
DIM $stdrck
DIM $stdgrp
DIM $EDV_print
DIM $EDV_drucker
DIM $SD_print
DIM $SD_drucker
$printserver = \\ps02\
$groups = "domain\EDV_print","domain\SD_print"
$EDV_drucker = "DV-HPBJ1100","DV-HPCL5550"
$SD_drucker = "SD1-HPLJ4P","SD2-HPLJ4P"
$stdrck = "DV-HPBJ1100","DV-HPCL5550","DV-HPDJ1050C","DV-HPLJ2200"
FOR EACH $grp IN $groups
SELECT
CASE $grp = "nlkhhi\EDV_print"
$printers = $EDV_drucker
CASE $grp = "nlkhhi\SD_print"
$printers = $SD_drucker
ENDSELECT
? "Vor Schleife 2"
FOR EACH $prt IN $printers
IF Ingroup("$grp")
? "-------------------------"
delprinterconnection ("$printserver$prt")
addprinterconnection ("$printserver$prt")
ELSE
ENDIF
NEXT
NEXT
FOR EACH $stdgrp in $stdrck
IF INGROUP("$stdgrp")
Setdefaultprinter ("$printserver$stdgrp")
ENDIF
NEXT
:Exit
flushkb
EXIT 1