23587
Goto Top

Daten aus LDAP auslesen

Es geht um die Verbindung von ASP zum AD

Hallo,

ich bin ein richtiger Anfänger in ASP und bekomme nur die einfach Sachen hin.
Nun will ich aber alle Benutzer aus unserem AD auslesen lassen um diese dann in eine drop-down-liste einzufügen.
Ist das irgendwie möglich bzw. wisst ihr wie das geht?

Gruß Aleks

Content-Key: 124464

Url: https://administrator.de/contentid/124464

Printed on: April 19, 2024 at 18:04 o'clock

Member: dog
dog Sep 08, 2009 at 17:34:12 (UTC)
Goto Top
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand = CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  

objCommand.CommandText = "SELECT * FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user'"  
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set user = GetObject(objRecordSet.Fields.Item(1))
    Wscript.Echo user.samAccountName

	objRecordSet.MoveNext
Loop

objRecordset.Close
objConnection.Close

Nur mal so grob über den Daumen...