Infos über Computer im Active Directory abfragen

[jens135]

Hallo,

ich bin dabei ein Programm zu schreiben, welches Informationen über eine Domäne abfragt.

Bisher kann mein Programm eine Liste der User, Infos über die User, eine Liste der Gruppen, Infos über die Gruppen und eine Liste der Computer abfragen...

Doch ich schaffe es nicht, Informationen über die Computer abzufragen.


Bisher habe ich es so versucht:

Delphi-Quellcode:

var computer :IADsComputer;

...

ADsGetObject('WinNT://' + Domaene + '/' + Computername, IADsComputer, computer);

Die Infos über die User und Gruppen kann ich folgendermaßen abfragen:

User:

Delphi-Quellcode:

var usr :IADsUser;

...

ADsGetObject('WinNT://' + Domaene + '/' + Username, IADsUser, usr);

Gruppen:

Delphi-Quellcode:

var grp :IADsGroup;

...

ADsGetObject('WinNT://' + Domain + '/' + Groupname, IADsGroup, grp);

Wenn ich die ComputerInfos abfragen möchte, kommt einer der folgenden Fehler:
- Schnittstelle nicht unterstützt.
- Der Netzwerkpfad wurde nicht gefunden.
- Allgemeiner "Zugriff verweigert"-Fehler.
- Unbekannter Fehler.

Ich habe das Programm schon mit verschiendenen Benutzern ausprobiert. Unter anderem mit Admin-Rechten. Doch es kommen immer die selben Fehler.



Ich hoffe, dass mit hier jemand helfen kann

Vielen Dank im Vorraus!

[nahpets]

Hallo,

das was Du möchtest sollte über WMI gehen, schau mal hier im Forum oder in der MSDN, dort solltest Du entsprechende Hinweise finden.

Ansonsten suche mal nach TSWbemLocator, da solltest Du dann auch Informationen finden können.

[jens135]

ich bin verwundert, dass es evtl. nicht mithilfe der Funktion ADsGetObject geht. Weil ich kann ja auch die Attribute der User und Gruppen abfragen... und die Computernamen bekomme ich ja auch. Nur die anderen Attribute kann ich nicht abfragen.

Wenn es mittels der Funktion "ADsGetObject" lösbar ist, würde ich dies auch gerne tun, weil ich diese Funktion im ganzen Programm anwende.

[nahpets]

Hallo,

ob das mit ADsGetObject geht oder nicht, kann ich die nicht sagen, vermute aber, dass die anzugebenden Parameter übereinstimmen.