Alle Domänen auflisten...

[cherry]

Ok... ich hab alles versucht!!! Hab eine übersetzug unter Koders.com gefunden. Damit die Funktioniert musste ich ca. 5 weitere Units "anhängen" (habe ich alles unter Koders gefunden). Das Problem ist jetzt nur -> Wie rufe ich die Funktion auf, ich kriegs einfach nicht hin.

Und zweitens -> Brauche ich wirklich 5 Units um mir die Domänen aufzulisten
Und drittens -> soviel ich gelesen habe wird nur die Domäne angezeigt in der ich mich befinde?!

Hat das jmd schon mal gemacht...
Ich bin weiter am testen und schreibe es hier rein falls ich was neues habe...

[sakura]

Ich habe da eine Lösung gefunden, welche zu funktionieren scheint ;)
Ich habe es im Büro getestet (klitzekleine Domain) und bei BMW Worldwide (nicht gerade klitzeklein ;))
Beispielcode und Erklärung: http://www.gumpi.com/Blog/2007/10/15...sAndSites.aspx

Auszug aus dem Code. Zuerst musst Du die Basisdomain aus dem AD ermitteln:

Delphi-Quellcode:

// get the forest base
try
  DirObj := VBGetObject('LDAP://rootDSE') as IADs;
  Root := (VBGetObject('LDAP://' + DirObj.Get('rootDomainNamingContext')) as IADs).ADsPath;
except
  mmoReport.Lines.Add('Computer is not running in domain setup.');
  Exit;
end;
// replace LDAP with GC (global catalog)
Root := 'GC' + Copy(Root, 5, MaxInt);
mmoReport.Lines.Add(Root);

Dann musst Du via ADO die Domains bzw. Sites ermitteln und das Recordset iterieren:

Delphi-Quellcode:

// ADO Abfragen je nach Wunsch
Query := 'SELECT Name FROM ' + QuotedStr(Root) + ' WHERE objectCategory=''domain''';
Query := 'SELECT Name FROM ' + QuotedStr(Root) + ' WHERE objectCategory=''site''';

Ein komplettes Beispiel zum Download findest Du in meinem Blog verlinkt ;)

...:cat:...