1
per API auf Active Directory zugreifen
Auslesen von Nuterinformationen im AD
Guten Morgen ihr Leute.
Ich habe gehört es gibt eien API, mit der man aufs AD zugreifen kann. Das Interessiert mich insofern, als ich mit einem Kollegen gerade an einem Programm arbeite, das jeder nutzen soll, der in der betroffenen Firma arbeitet. Dazu sollen die Anmeldeinformationen direkt aus dem AD gelesen werden, sodass der Nutzer erstmal nur ein LogIn braucht.
Weiterhin wäre es das Ziel die kompletten Angaben zum Benutzer aus dem AD zu lesen (Name, Adresse, Telefonnummer, Handynummer) sowas ...
Hat hier einer Ahnung von der API, und könnte uns bei den erstern Schritten helfen, oder kennt einfach nur ein Tutorial, das empfehlenswert ist?
Vielen Dank im Voraus!
Gruß,
J.R.
Ich habe gehört es gibt eien API, mit der man aufs AD zugreifen kann. Das Interessiert mich insofern, als ich mit einem Kollegen gerade an einem Programm arbeite, das jeder nutzen soll, der in der betroffenen Firma arbeitet. Dazu sollen die Anmeldeinformationen direkt aus dem AD gelesen werden, sodass der Nutzer erstmal nur ein LogIn braucht.
Weiterhin wäre es das Ziel die kompletten Angaben zum Benutzer aus dem AD zu lesen (Name, Adresse, Telefonnummer, Handynummer) sowas ...
Hat hier einer Ahnung von der API, und könnte uns bei den erstern Schritten helfen, oder kennt einfach nur ein Tutorial, das empfehlenswert ist?
Vielen Dank im Voraus!
Gruß,
J.R.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 93728
Url: https://administrator.de/contentid/93728
Printed on: April 23, 2024 at 12:04 o'clock
1 Comment
Hi JR,
habe so was ähnliche mit VBA in Access realsisiert.
Hier ein Auszug aus dem CODE:
'Open AD Connection
Set ado = CreateObject("ADODB.Connection")
ado.Provider = "ADSDSOObject"
ado.Open
For i = 1 To 1
If i = 1 Then
Set rs = ado.Execute("<LDAP://OU=User,OU=XXX,DC=XXX,DC=XXX,DC=XXX,DC=XXX,DC=XXX>;(&(objectClass=user)(samaccountname=*));ADsPath;SubTree")
end if
rs.MoveFirst ' --> ich speicher die Daten in einer Tabelle ab
Do Until rs.EOF
useradpath = rs.Fields.item("ADsPath").value
'Check, so that only the User Objects will be imported
OK = True
If InStr(useradpath, "OU=disabled-Users") Or InStr(useradpath, "OU=SYS-USR") Then
OK = False
End If
If OK Then
'Get the actual User Object
Set objuser = GetObject(useradpath)
'Add the fields to AD Table
On Error Resume Next
rstemp.AddNew
rstemp.Fields("ADPath") = useradpath
rstemp.Fields("FullName") = objuser.FullName
rstemp.Fields("Extensionattribute1") = objuser.Extensionattribute1
und so weiter.
Google einfach mal nach Script und ActiveDirectory.
Gruß
Ralf
habe so was ähnliche mit VBA in Access realsisiert.
Hier ein Auszug aus dem CODE:
'Open AD Connection
Set ado = CreateObject("ADODB.Connection")
ado.Provider = "ADSDSOObject"
ado.Open
For i = 1 To 1
If i = 1 Then
Set rs = ado.Execute("<LDAP://OU=User,OU=XXX,DC=XXX,DC=XXX,DC=XXX,DC=XXX,DC=XXX>;(&(objectClass=user)(samaccountname=*));ADsPath;SubTree")
end if
rs.MoveFirst ' --> ich speicher die Daten in einer Tabelle ab
Do Until rs.EOF
useradpath = rs.Fields.item("ADsPath").value
'Check, so that only the User Objects will be imported
OK = True
If InStr(useradpath, "OU=disabled-Users") Or InStr(useradpath, "OU=SYS-USR") Then
OK = False
End If
If OK Then
'Get the actual User Object
Set objuser = GetObject(useradpath)
'Add the fields to AD Table
On Error Resume Next
rstemp.AddNew
rstemp.Fields("ADPath") = useradpath
rstemp.Fields("FullName") = objuser.FullName
rstemp.Fields("Extensionattribute1") = objuser.Extensionattribute1
und so weiter.
Google einfach mal nach Script und ActiveDirectory.
Gruß
Ralf
