|
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
%> |
|