NT User importieren

Häufig stellt sich die Frage, ob man existierende NT-User für eine bestehende Anwendung
ohne viel Zeitaufwand ( z.B. manuell ) , in eine Datenbank importieren / anzeigen kann.
Die Antwort liefert ADSI !

Beim der Entwicklung sollte man aber darauf achten, dass u.U. mehrere
Domain-Controller (DC) in der Netzwekumgebung existieren können !

Die Domäne(n) erhält man aus dem Namespace "WinNT", der uns
als Container die Informationen liefert.

Set oDom = GetObject("WinNT:")

Aus dem Container-Objekt oDom kann man nun die User (und Groups) mit
einer For-Each-Schleife ermitteln.

Das untere Beispiel liefert die Benutzer einer oder mehrerer Domäne(n):

<h1> Domänen / Benutzer </h1>
<%
Dim oUser

Set oDom = GetObject("WinNT:") 'Create Container-Object for reading Domains

For Each oChildDom In oDom
   Set oUser = GetObject("WinNT://" & oChildDom.Name) 'Create Container-Object for reading User
   oUser.Filter = Array("User")    'Set filter to get User only
    For Each oChildUser In oUser
     Response.Write oChildUser.Class & " from " & oChildDom.Name & ": " & oChildUser.Name & "<br>"'& oChildUser.Fullname & "<br>"
    Next
   Set oUser = Nothing
Next
%>