Benutzer und Gruppen via ADSI auslesen

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