Now I'll use this script to check for the existence of the workstations in the newly created printer groups and install the printers if needed. So cool.

code:
;http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=1;t=007920
 
call @ScriptDir+'\PriMapState.udf'

;********** Prevent script from running on a server or Win95*********
if @userid = administrator
   call @Scriptdir+'\osid.udf'
   $os=osid()
   if $os[1]='Win95' or $os[2]<>'Workstation'
     exit 0
   endif
endif
 
;********** Prevent script from running on Medrec pcs *********
if InGroup ("Medrec Group")
   exit 0
endif
 
;********** Beginning of printer mapping *********
$WS = GetObject("WinNT://" + @domain + "/" + @wksta + "$$")
 
if @error       
   ? @serror
else
 
   for each $grp In $WS.Groups
      $GrpName = $grp.Name
 
;--- Add and set default printer ---
 
      if left($GrpName,2) = "D_"
	 $defprinter = substr($GrpName,3)
	 $defprinter = join(split($defprinter,"_"),"\")
  
         if not PriMapState("\\" + $defprinter)
            ? "Status - Printer not connected \\"+$defprinter
            $nul=AddPrinterConnection("\\" + $defprinter)
               ? "Status - Printer added \\"+ $defprinter
               ? @serror
 
	    $nul=SetDefaultPrinter("\\" + $defprinter)
              "Status - Default Printer set \\" +$defprinter
	      ? @serror
 
         endif
 
         if PriMapState("\\" + $defprinter)<>2
             $nul=SetDefaultPrinter("\\" + $defprinter)
                ? "Status - Default Printer set \\" + $defprinter
                ? @serror
 
         endif
 
      endif
 
;--- Add additional printers ---
 
     if left($GrpName,2) = "A_"
	 $addlprinter = substr($GrpName,3)
	 $addlprinter = join(split($addlprinter,"_"),"\")
 
         if not PriMapState("\\" + $addlprinter)
	    ? "Status - Printer not connected \\" + $addlprinter
	    $S=AddPrinterConnection("\\" + $addlprinter)
	    ? "Status - Printer added \\" + $addlprinter
	    ? @serror
	    ? 
	 endif
 
      endif 
  
   next
 
endif
tjcarst [Big Grin]

[ 23. October 2003, 17:12: Message edited by: tjcarst ]