Benutzer aus Active Directory abfragen

[Lloyd]

Hallo,
ich frage unser AD ab um die Benutzer auszulesen. Hab dazu im Internet auch u.a. Script gefunden was so weit auch funktioniert. Zumindest liest er mir Name und Mail aus. Ich schaffe es aber nicht einen weiteren Wert auszulesen wie z.B. die Description. Kann mir jemand sagen warum? Ich vermute ich hab das Script nicht so ganz verstanden.

   On Error Resume Next
   
   Dim ws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Set db = s.CurrentDatabase
   Dim wert1 As String, wert2 As String, wert3 As String
   
   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 Name, Mail, Description FROM 'LDAP://10.xxx.xx.xxx' WHERE objectCategory='user'"
   Set objRecordSet = objCommand.Execute
   objRecordSet.MoveFirst
   
   Do Until objRecordSet.EOF
      wert1 = ""
      wert2 = ""
      wert3 = ""
      wert1 = objRecordSet.Fields("name").Value
      wert2 = objRecordSet.Fields("mail").Value
      wert3 = objRecordSet.Fields("Description").Value
      
      Call NeuerBenutzer(wert1, wert2, wert3, db)
      
      objRecordSet.MoveNext
   Loop
   
   Call ws.ViewRefresh

[ascabg]

Hallo,

Ich bin nun nicht der Spezialist, aber wird die Description ueber LDAP ueberhaupt mitgeliefert/bereitgestellt?


Andreas

[Lloyd]

Unter http://www.selfadsi.de/user-attributes-w2k3.htm hab ich mir die verfügbaren Feldnamen rausgesucht.
Kann ich da nicht alle von verwenden, bzw. wie komme ich anders an die Informationen dran?

[kawie]

LDap stellt im prinzip alle nahezu alle objekte aus der AD auf die eine oder andere Art bereit. Ist manchmal aber recht pingelig was die schreibweise angeht. Ich würde es mal klein geschrieben probieren "description".

Ich empfehle für alles was mit LDAP zu tun hat zum "üben" und "spielen" das Apache Directory Studio. http://directory.apache.org/studio/

[Lloyd]

Klein schreiben nutzt da auch nix. Das Apache Directory Studio schaue ich mir mal an.

[kawie]

Klein schreiben nutzt da auch nix. Das Apache Directory Studio schaue ich mir mal an.

ich habe mir das gerade mal angesehen meine Aussage war ein wenig vorlaut ich habe zwar schon viel mit der AD gemacht aber das dann meist mit Java oder c# und nicht mit lotus Script.

Ich kann das Problem auf jeden Fall bestätigen andere Felder wie title oder samaccountname bekomme ich auch problemlos...

Die description tut aber nicht ... ich schau auchmal warum nicht

[kawie]

So nun habe ich es description ist ein array

habs nun so gemacht..

dim test as variant
dim test2 as string

test = objRecordSet.Fields("description").Value
test2 =  test(0)

[Lloyd]

Achso,
vielen vielen Dank.

Jetzt muß ich mir nur noch raussuchen, welche Felder wie zurückgegeben werden.

Super, damit komme ich weiter.

[m3]

Wenn Du das nutzt, um automatisch neue Benutzer aus dem AD in Domino anzulegen ... dafür gäbe es den Tivoli Directory Integrator, der kostenlos bei Eurer Domino Lizenz dabei ist.
Siehe http://edbrill.com/ebrill/edbrill.nsf/dx/tivoli-directory-integrator-demo-active-directory-and-domino-synchronization-on-youtube