www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Re: automatische Gruppenbildung
Autor:  Dr. Holger Schwichtenberg
E-mail:  Antworten bitte nur in das Forum!
Datum:  12.11.2003 08:52:48
Subject:  Re: automatische Gruppenbildung
Bezug zum Buch: 
Message:  Das geht am besten per WSH-Skript. Ich habe Ihnen das Skript mal eben geschrieben. Sie müssen nur Ihre spezifischen LDAP-Pfade bzw. Ihre LDAP-Abfrage (Saved Query) eintragen.

Mein Skript erzeugt eine Gruppe aus allen (!) Benutzern.

Grüße

Dr. Holger Schwichtenberg


Dim strLDAPQuery ' As String
Dim objCON ' As ADODB.Connection
' --- ADO-Connection-Objekt erzeugen
Set objCON = CreateObject("ADODB.Connection")
' --- Verbindung zu dem OLE-DB-Provider für ADSI
CONSTRING = "Provider=ADSDSOObject"
objCON.Open CONSTRING ', "administrator", ""
' --- Selektion aller User, deren Verzeichnisname mit H beginnt
strLDAPQuery = "<LDAP://essen/dc=it-objects,dc=local>;(objectclass=user);samaccountname,adspath;subtree"
' --- Ausführen der Abfrage
Set rs = objCON.Execute(strLDAPQuery)
' --- Ausgabe der Ergebnisse
While Not rs.EOF
    WScript.echo rs("adspath") & ";" & rs("samaccountname") & " wird aufgenommen..."
    Dim g ' as IADsGroup
     Set g = GetObject("LDAP://essen/cn=AlleBenutzer,ou=test,dc=it-objects,dc=local")
     g.Add rs("adspath")
    rs.MoveNext
Wend
' --- Schließen der Objekte
rs.Close
objCON.Close

Antworten

  Zurück zum Forum



 Windows Server -- Windows Server 2003, Windows 2000 Server, Longhorn/Blackcomb
 automatische Gruppenbildung von MarioReintgen  am 3.6.2003 9:43:57 AM
 Re: automatische Gruppenbildung von Dr. Holger Schwichtenberg  am 12.11.2003 8:52:48 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2020