Skript für Drucker per AD zuordnen

' Die Variablen werden mit Inhalt gefüllt.  
' OuDerPCs muss dann mit dem Namen der OU ersetzt werden in de die PCs sind,  
' also bspw. strContainer = "OU=AllePCs"  
strContainer	= "OU=<<a>OuDerPCs<a>>"  
' Der Server auf dem die Drucker installiert sind  
strPrintSRV = "Druckserver"  
' Eine Instanz des Network Objekts wird estellt.  
Set WshNetwork = Wscript.CreateObject("Wscript.Network")  
' Die Eigenschaft Computername des Network-Obj. wird abgefragt  
strComputer = LCase(WshNetwork.ComputerName)
' Eine Verbindung zum AD wird hergestellt  
' rootDSE ist das oberste Objekt in der AD-Hierarchie  
' ggf. kann auch noch ein Server angegeben werden, ("LDAP://server/rootDSE")  
Set objRootDSE = GetObject("LDAP://rootDSE")  
' Vebindung zum Objekt strComputer in der OU strContainer im Bereich Users und Computer  
Set objItem = GetObject("LDAP://cn=" & strComputer & "," & strContainer & "," & _  
   objRootDSE.Get("defaultNamingContext"))  
' Für o.g. PC in benannter OU wird das Atrribut location und in die Variable geschrieben  
strLocation = objItem.Get("location")  
' Die Variable wird ausgewertet  
' Wenn bei dem Computer kein Standort eingetragen ist, kommt ein Fehler  
Select Case strLocation
Case "Raum1"  
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker1"  
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\Drucker1"	  
Case "Raum2"  
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker2"  
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\Drucker2"	  
Case Else
End Select