Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Lloyd am 27.04.12 - 12:06:19
-
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
-
Hallo,
Ich bin nun nicht der Spezialist, aber wird die Description ueber LDAP ueberhaupt mitgeliefert/bereitgestellt?
Andreas
-
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?
-
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/
-
Klein schreiben nutzt da auch nix. Das Apache Directory Studio schaue ich mir mal an.
-
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 :)
-
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)
-
Achso,
vielen vielen Dank.
Jetzt muß ich mir nur noch raussuchen, welche Felder wie zurückgegeben werden.
Super, damit komme ich weiter.
-
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