So ich hab mal noch bissel im netz gesucht...
mit folgendem code sollte es funktionieren auf die AD zuzugreifen...
das problem is das eine fehler kommt und zwar liste nicht vorhanden
woran kann das liegen?
code:
strDomain = Domain
strAccount = nutzername
strPassword = passwort
' ADO-Connection
Set objConnection = CreateObject(ADODB.Connection)
objConnection.Provider = ADsDSOObject
objConnection.Properties(User ID) = strDomain & \ & strAccount
objConnection.Properties(Password) = strPassword
objConnection.Open Active Directory Provider
' ADO-Command
Set objCommand = CreateObject(ADODB.Command)
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = SELECT * FROM->LDAP:// & strDomain &->
' ADO-Recordset - eine Abfrage ausführen
Set objRecordset = objCommand.Execute