Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Benutzer aus Gruppen im Active Directory auslesen! (https://www.delphipraxis.net/124051-benutzer-aus-gruppen-im-active-directory-auslesen.html)

eddyman 13. Nov 2008 15:47


Benutzer aus Gruppen im Active Directory auslesen!
 
Nachdem ich mittels ADO auf mein Active Directory zugegriffen habe, mir ne passende Domain ausgesucht habe,...und
sogar alle Gruppen dieser Domain ausgelesen habe (werden in einer CheckBoxListe angezeigt)stehe ich vor dem Problem, dass ich es einfach nicht schaff die jeweiligen User einer Gruppe auszulesen.

In sDomainName ist der korrekte Domainname enthalten.
und in sGroupName steht auch die richtige Gruppe drin
Nachdem ich also eine best. Gruppe in der CheckBoxList ausgewählt habe, möchte ich gerne die darin enthaltenen benutzer lesen.

Folgendermaßen sieht mein Suchstring aus.

Delphi-Quellcode:
strQuery := '<LDAP://' + sDomainName + '>; (&(objectClass=user, objectCatalog=person, memberOf=CN='+sGroupName+'));name;subtree';


Cmd.CommandText := strQuery;
Data.Recordset := Cmd.Execute;
Data. lese ich dann aus, um es in einer CheckBoxList anzuzeigen.



ABER, ES FUNZT NICHT!!! :wall:

Was mach ich falsch? Bzw. was wollt ihr noch wissen, damit man eine vernünftige Lösung finden kann?

Und nein, ich kann auf keinen Fall .Net benutzten *g*

Die Muhkuh 13. Nov 2008 15:48

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Zitat:

Zitat von eddyman
ABER, ES FUNZT NICHT!!! :wall:

Was funktioniert nicht?

eddyman 13. Nov 2008 15:50

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Die strQuery liefert kein Ergebnis!

eddyman 14. Nov 2008 07:03

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Wirklich keiner hier, der sich mit Active Directorys auskennt?

nahpets 14. Nov 2008 09:42

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Hallo,

ne, auskennen tue ich mich nicht. Versuch mal:

Delphi-Quellcode:
fDomaine := 'dc=www,dc=google,dc=de'; // hier bitte Deine Domäne eintragen.
strQuery := 'LDAP://' + fDomaine;
Und damit dann Deine Abfrage ausführen.

per SQL könnte auch das funktionieren:
SQL-Code:
select * from 'LDAP://domäne'
oder per Ado:
Delphi-Quellcode:
ADOQuery.Close;
ADOConnection.Close;
AdoConnection.ConnectionString := 'Provider=ADsDSOObject;Encrypt Password=False;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
ADOQuery.SQL.Text := 'select * from ''LDAP://domäne'' ';
(* ADOQuery.SQL.Text := 'select * from ''LDAP://domäne'' where objectClass=''user'' '; *)
ADOConnection.Open;
ADOQuery.Open;
Ansonsten schau mal hier oder hier oder hier oder [google]http://www.google.de/search?num=100&hl=de&newwindow=1&safe=off&q=%2Bdel phi+%2Bsource+%2Bldap&meta=[/google]

eddyman 14. Nov 2008 14:11

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Jo, vielen Dank, soweit bin ich bereits schon!

Was ich wissen will ist NICHT, wie ich eine ADO verbindung aufbaue und alle user, bzw. gruppen abfragen kann.
DAS HAB ICH BEREITS.

Meine Frage ist: Was muss ich am suchstring einstellen, um alle user aus EINER BESTIMMTEN GRUPPE auszulesen.

Dies ist ein Spezialfall, den ich leider bei allem gegoogle nicht finden kann.

nahpets 14. Nov 2008 16:01

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
Hallo,

ObjectClass für Group hat ein Attribut Member (Variant-Array), das alle der Mitglieder dieser Gruppe enthält.
Beim User ist nicht gespeichert, zu welcher Gruppe er gehört, sondern bei der Gruppe, welche User sie als Mitglieder hat.

Bei Sysinternals gibt es den Active Directory Explorer v1.01. Eventuell hilft der Dir dabei herauszufinden, wo es was gibt.

PS: Habe ich gerade alles über Google herausgefunden :wink:

eddyman 17. Nov 2008 08:21

Re: Benutzer aus Gruppen im Active Directory auslesen!
 
JEEEEHHAAAAAAAAAAAAAAa, :bouncing4: :bounce1: :bounce2:

Oller Schwede, genau das wars!


PS: Hab es echt nicht bei Google gefunden gehabt :oops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:45 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz