Drucker über die AD und Script zuweisen.

;Break off
;SetConsole("Hide")  
? "losgehts"  

$pr001 = \\server1\pr001
$pr002 = \\server1\pr002
$pr003 = \\server1\pr003
$pr004 = \\server2\pr004
$pr005 = \\server4\pr005
$pr006 = \\server1\pr006

DelPrinters()


IF INGROUP("pr001")  
ADDPRINTERCONNECTION ("$pr001")  
? "Drucker $pr001 zugewiesen"  
ENDIF

IF INGROUP("pr002")  
ADDPRINTERCONNECTION ("$pr002")  
? "Drucker $pr002 zugewiesen"  
ENDIF

IF INGROUP("pr003")  
ADDPRINTERCONNECTION ("$pr003")  
? "Drucker $pr003 zugewiesen"  
ENDIF

IF INGROUP("pr004")  
ADDPRINTERCONNECTION ("$pr004")  
? "Drucker $pr004 zugewiesen"  
ENDIF

IF INGROUP("pr005")  
ADDPRINTERCONNECTION ("$pr005")  
? "Drucker $pr005 zugewiesen"  
ENDIF

IF INGROUP("pr006")  
ADDPRINTERCONNECTION ("$pr006")  
? "Drucker $pr006 zugewiesen"  

Function DelPrinters()

  Dim $aPrinters	; array of connections to delete
  Dim $P, $A		; pointers
  Dim $Key		; reg key
  Dim $Tmp		; tmp var
  Dim $Rv		; Return Value

  $A = -1
  $P = 0

  $Key = 'HKCU\Printers\Connections'  
  $Tmp = EnumKey($Key, $P)
  If $Tmp			; at least one printer?
    While Not @ERROR 
      $A = $A + 1
      ReDim Preserve $aPrinters[$A]
      $aPrinters[$A] = $Tmp
      $P = $P + 1
      $Tmp = EnumKey($Key, $P)
    Loop

    For Each $P in $aPrinters
      'delete ' $Key '\' $P ?  
      $Rv = DelKey($Key + '\' + $P)  
    Next

  EndIf

EndFunction