Dieser Artikel zeigt Ihnen, wie Sie mit ADSI unter NT die Benutzer und deren Gruppen auslesen können. Das Beispiel wird als ASP-Seite ausgeführt und listet die Gruppen und Benutzer auf.

Zuerst benötigen wir ein Objekt, welches wir mit Hilfe des Namespace WinNT bekommen, das uns die benötigten Informationen liefert:

Set oWinNT = GetObject("WinNT://domaene/server")

oWinNT enthält eine Reihe von weiteren Elementen (Objekte), von dem wir aber nur die Benutzer filtern und diese ausgeben wollen. Am einfachsten durchlaufen wir alle Elemente mit einer for-each-Schleife:

For Each oChild in oWinNT    ... Next

oChild enthält nun eine Methode Class(). Mit dieser Methode können wir jetzt einen Art Filter bauen, der uns die Gruppen und Benutzer liefert:

InStr(1,oChild.Class,"User")

Nachdem wir den Filter setzen -mit "User"- geben wir einfach alles das aus, was wir benötigen.

• oChild.Class
• oChild.FullName
• oChild.Name 
• oChild.ADsPath

Tja, das war der ganze Aufwand - kurz und bündig. Anschliessend der Sourcecode, den Sie einfach in eine ASP-Seite einfügen können.

dim oCont   Set oWinNT = GetObject("WinNT://domaene/server") n=0 For Each oChild in oWinNT    n=n+1       If InStr(1,oChild.Class,"User") Then          Response.Write oChild.Class & " " & oChild.FullName & " " & oChild.Name  & " " & oChild.ADsPath & "<br>"       End If Next