Frage ist gelöst

Skript zur automatischen Verteilung von Druckern anhand von Computerkonten in Active Directory Gruppen

;************************************************************Schnipp*************************************************************** 

$Version =1 

SetConsole("Hide") 

;******************************************************************************************************* 

;*In diesen Arrays sind für jeden Druckerbereich die aktuellen Drucker eingtragen. (Druckergruppen)    * 

;*Neue Drucker oder Namensänderungen können mit Ihrem FREIGABENAMEN eingetragen werden.                * 

;*Der Stern zeigt an, dass dannach der INSTALLATIONSNAME des Standarddruckers kommt                    *          

;******************************************************************************************************* 

$Buchhaltungsdrucker = "Versand_KYO_FS3900N_PCL", "*", "Versand_SWLaser" 

$Einkaufsdrucker = "QM_OKI5750_PCL6", "Einkauf_CAN_IR1022IF_PCL6","Einkauf_HP_BIJ2230_PCL5", "*", "Einkauf_Laserfax" 

;************************************************************************************ 

;hier bitte den Printserver eintragen von dem die Drucker installiert werden sollen!* 

;************************************************************************************ 

$Printserver= "\\Printserver1" 

;************************************************************************************ 

$Druckinstall=0 

;*********************************** Registry auslesen ****************************************************************** 

$Aktuell = ReadValue("HKEY_CURRENT_USER\Printers\Druckerinstallation", "Version") 

;*********************************** aktuelle Druckgruppe ermitteln****************************************************** 

$PrintGroup = PrinterGroupID 

if $PrintGroup=""  

 sleep 10  

 $PrintGroup = PrinterGroupID  

endif ;***********Manchmal geht die Anmeldung zu schnell********** 

;******************Achtung : hier den Domänennamen angeben!************************************************************** 

IF ComputerInGroup (noprint, Domäne) goto ende endif ; **** Computer ist Teil der Gruppe noprint und wurde von Druckerverteilung ausgeschlossen ***  

;************************************ Erstinstallation ****************************************************************** 

IF $Aktuell=0  

  WriteValue("HKEY_CURRENT_USER\Printers\Druckerinstallation","Version", $Version,  "REG_MULTI_SZ") 

  WriteValue("HKEY_CURRENT_USER\Printers\Druckerinstallation","Gruppe", $PrintGroup,  "REG_MULTI_SZ") 

endif 

;*********************************** Registry auslesen ****************************************************************** 

$PrintGroupR= ReadValue("HKEY_CURRENT_USER\Printers\Druckerinstallation", "Gruppe") 

IF $Version<>$Aktuell or $Printgroup<>$PrintgroupR 

messagebox("Die Druckerinstallation muss upgedated werden ! Version: "+$Aktuell+ " nach Version: "+$Version+" Druckgruppe: "+$PrintGroupR+" nach Druckgruppe: "+$Printgroup, "Drucker updaten !",016,0) 

WriteValue("HKEY_CURRENT_USER\Printers\Druckerinstallation","Version", $Version,  "REG_MULTI_SZ") 

WriteValue("HKEY_CURRENT_USER\Printers\Druckerinstallation","Gruppe", $Printgroup,  "REG_MULTI_SZ") 

;************************************************************************************** 

;hier bitte den Printserver eintragen von dem die Drucker deinstalliert werden sollen!* 

;************************************************************************************** 

DeleteAllPrinters(AlterPrintserver)   

;********************Hier nochmals den neuen Printserver eintragen!******************** 

DeleteAllPrinters(Printserver)  

? "Computername:" +@wksta 

;*********************************************Druckerverbinden (Druckgruppe (im ADS), Druckergruppe)****************** 

Druckerverbinden(DruckBuchhaltung, $Buchhaltungsdrucker,$Printserver) 

Druckerverbinden(DruckEinkauf, $Einkaufsdrucker,$Printserver) 

;********************************************************************************************************************************************* 

If $Druckinstall=0 

  messagebox("Der Rechner ist nicht Mitglied einer Druckgruppe !", "Drucker nicht installiert...",016,0) 

else 

  messagebox("Ihre Drucker wurden neu verbunden mit dem Printserver: "+$Printserver, "Drucker wurden installiert. MfG, MisterIX 2009",064,0) 

Endif 

Else 

;messagebox("Die Druckerinstallation muss nicht upgedated werden ! Version: "+$Aktuell, "Drucker aktuell !",064,0) 

Endif 

:ende 

Exit 

;**********************************************************Hier kommen die Funktionen !*********************************************************** 

Function ComputerInGroup($group,optional $Domain)  

  Dim $oGrp  

  if not $domain           

    $domain=@domain          

  endif  

  $oGrp = GetObject("WinNT://" + $domain + "/"  + $group + ",group" )  

  if @error        

   exit 1           

  endif  

  if $oGrp.IsMember("WinNT://" + $domain + "/"  + @wksta + "$$" )  		         $ComputerInGroup=1  

   else 			 

     $ComputerInGroup=0  

   endif  

endfunction  

Function DeleteAllPrinters($server) 

? "Funktion aufgerufen mit:"+$server 

sleep 1 

$Index = 0 

$TempPrinter = "" 

;Erstellt eine Liste mit allen installierten Druckern 

Dim $PrinterArray[40] 

:Loop 

If @ERROR=0 

$TempPrinter = $TempPrinter + EnumValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$Index) + "," 

$Index = $Index + 1 

GoTo "Loop" 

EndIf 

$TempPrinter = Trim($TempPrinter) 

$Length = Len("$TempPrinter") - 2 

$TempPrinter = Left("$TempPrinter","$Length") 

$PrinterArray = Split("$TempPrinter",",") 

;trennt alle Netzwerkdrucker 

For $Count = 0 to $Index-2 

$Temp=$PrinterArray[$Count] 

? $Temp+", "+$server 

IF INSTR("$Temp","$server")<>0 

$rc=DelPrinterConnection ($PrinterArray[$Count]) 

Endif 

Next 

Endfunction 

*********************************************************Achtung! Hier die im ADS angelegten Druckgruppen eintragen!******************** 

Function PrinterGroupID 

$ID=0 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+1 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+2 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+4 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+8 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+16 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+32 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+64 Endif 

IF ComputerInGroup(DruckEinkauf,Domaene) $ID=$ID+128 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+256 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+512 Endif 

IF ComputerInGroup(DruckBuchhaltung,Domaene) $ID=$ID+1024 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+2048 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+4096 Endif 

;IF ComputerInGroup(Druck****,Domaene) $ID=$ID+8192 Endif 

IF ComputerInGroup(noprint,Domaene) $ID=$ID+16384 Endif ;************** die Gruppe noprint wird im ADS angelegt und dient zum ausschliessen von Rechnern aus der Druckerverteilung (ZB. Server) 

;? "Dezimale ID: "+$ID 

$PrinterGroupID=$ID 

Endfunction 

Function Druckerverbinden($Druckgruppe, $Druckergruppe, $Print) 

$X=0 

;******************Achtung : hier nochmals den Domänennamen angeben!******************************************************* 

IF ComputerInGroup($Druckgruppe,Domaene) 

? "Computer ist Mitglied der Druckergruppe: "+$Druckgruppe+"   ! " 

Do 

If $Druckergruppe[$x]<>"*" 

   ;? "Drucker "+ $Print+"\"+$Druckergruppe[$x]+" wird instaliert !! " 

   ADDPrinterConnection($Print+"\"+$Druckergruppe[$x]) 

   $x=$x+1 

Endif 

Until $Druckergruppe[$x]="*" 

$Druckinstall=1 

;? "Standard: "+$Print+"\"+$Druckergruppe[$x+1] 

SetDefaultPrinter($Print+"\"+$Druckergruppe[$x+1]) 

Endif 

Endfunction 

;***************************************************************Schnapp********************************************