mit LDAP auf Active Directory zugreifen

[DeeFour]

Hi,

ich hab im Moment als Aufgabe in ASP mit LDAP oder was auch immer auf das Active Directory zuzugreifen um das Intranet der Firma zu optimieren.

Normalerweise programmiere ich PHP und bin in ASP noch nicht so ganz firm.
Ich kann zwar Datenbankzugriffe in ASP aber bei diesem Problem weiß ich leider nicht wo ich ansetzen soll.

Ich habe bereits einige Beispielskripte im Netz gefunden, aber da bekomme ich immer nur Fehler wie error error '80072020'

Also es hapert im Moment nicht an der Ausgabe der Daten oder ähnlichem, sondern erstmal daran überhaupt mit ASP auf die AD zugreifen zu können.

Vielleicht kann mir ja jemand weiterhelfen.

thanks
Frank

 

[DeeFour]

ok, hab jetzt schon selber ne Möglichkeit gefunden über LDAP mit der AD zu kommunizieren:

<%

Dim oRootDSE, oCon, oCmd, oRecordSet  
  
Dim sDomainADsPath, sUser, sPassword, sGroup, sProperties  
  
Set oCon   = Server.CreateObject("ADODB.Connection")  
  
sUser   = ""           ' Usernamen hier eintragen mit domain\username
sPassword  = ""  ' Passwort hier eintragen

oCon.Provider   = "ADsDSOObject"  
oCon.Open "ADProvider", sUser, sPassword  
  
Set oCmd  = Server.CreateObject("ADODB.Command")  
Set oCmd.ActiveConnection = oCon  
  
oCmd.CommandText = "SELECT givenname,sn,displayname,mail FROM 'LDAP://YOURDOMAIN' WHERE objectClass='user' ORDER BY sn"   'YOURDOMAIN durch den Domainnamen deines Servers ersetzen

  
Set oRecordSet = oCmd.Execute
dim vorname
dim nachname
dim kompletterName
dim mail
dim html

font = "<font face=""verdana"" size=1>"

HTML = "<table width=800 border=1 cellspacing=0 cellpadding=4>"
HTML = HTML & "<tr><td>"& font & "Vorname</td>"
HTML = HTML & "<td>"& font & "Nachname</td>"
HTML = HTML & "<td>"& font & "Email</td></tr>"

while  oRecordSet.EOF = false
vorname = oRecordSet.fields("givenname")
nachname = oRecordSet.fields("sn")
mail =  oRecordSet.fields("mail")
 if isNull(vorname) AND isNull(nachname) AND isNull(mail)then
 
 else 
 if isNull(vorname) then vorname = "&nbsp;"
 if isNull(nachname) then nachname = "&nbsp;"
 if isNull(mail) then mail = "&nbsp;"
 HTML = HTML & "<tr><td>" & font & vorname & "</td>" & "<td>" & font & nachname & "</td>" & "<td>" & font & mail & "</td></tr>" 

 end if
oRecordSet.MoveNext
WEND
HTML = HTML & "</table>"
Response.Write HTML
Set oRecordSet = Nothing
%>