DevTrain Startseite Visual Studio 1 Magazin  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Shinja Strasser Artikel Drucken
        
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

 


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente
    Keine Links vorhanden

  Erfasst am: 28.02.2002
  Gültig bis: 30.03.2002
3 Ratings
Bewertung: 33,3%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG