Hallo Liste,
ich m�chte �ber LDAP eine Verbindung zum Exchange-Server aufbauen und dort nach bestimmten Userdaten Abfragen ausf�hren.
Quellcode f�r einen best. User (=kb):
'-------------------------------------------------------------------------
Set con = CreateObject("ADODB.Connection")
Set Com = CreateObject("ADODB.Command")
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"
Set Com.ActiveConnection = con
adDomainPath = "LDAP://Exchangeserver/o=Organisation/ou=Firma/cn=Recipients/cn=kb"
Com.CommandText = "select givenName,sn,initials,title,department,l,street,telephoneNumber,facsimileTelephoneNumber,mobile,mail from '"&adDomainPath&"' "
Com.Properties("Page Size") = 100
Com.Properties("Timeout") = 30 'seconds
Set RS = Com.Execute
While Not RS.EOF
Response.Write"Vorname = "&(RS("givenName"))&"<br>"
RS.MoveNext
Wend
RS.Close
Set Con = Nothing
Set Com = Nothing
Set RS = Nothing
'-------------------------------------------------------------------------
Diese Abfrage (f�r einen bestimmten User=KB) funktioniert.
Wenn ich allerdings eine Abfrage �ber alle User machen will, bzw. eine WHERE-Klausel einf�ge bekomme ich folgende Fehlermeldung:
Active Directory- Fehler '80040e37'
Der �bermittelte Active Directory-Pfad ist ung�ltig.
/ldap.asp, line 80
Zeile 80 : Set RS = Com.Execute
Ich mache dabei folgende Pfad-Angabe: adDomainPath = "LDAP://Exchangeserver/o=Organisation/ou=Firma/cn=Recipients"
Was mu� ich ver�ndern, da� ich �ber alle User abfragen kann?
mit freundlichen Gr��en
Katrin Schmidt
------------------------------------------------------
gedas deutschland GmbH
Gesch�ftsstelle Zwickau
Data Center
Rudolf-Ehrlich-Str. 7, D-08058 Zwickau
Telefon/phone: +49-375-3542-8870
Telefax/telefax: +49-375-3542-8780
Mailto:[EMAIL PROTECTED]
http://www.gedas.com
------------------------------------------------------
