Hallo ...
Ich wollte die Active Directory auslesen und die entsprechenden Einträge einzelnen Variablen zuweisen ... um sie dann im Laufe der Bearbeitung im Workbook weiter zu verwenden.
Das heißt:
Die Variablen sollen beim Öffnen des Workbooks gefüllt werden und über die ganze Session hin verfügbar sein.
Trage ich den Code in eine Sub unter "Workbook-open" passiert nichts ... eine MsgBox mit der Variable "vName " bleibt leer.
Füge ich den Code in das "Click"-Ereignis eines Testbuttons ein, dann wird die Variable in der MsgBox dargestellt.
Den Code habe ich aus einer Access-Datenbank, die ich vor Jahren geschrieben habe und wo es auch so funktioniert, wie ich es hier gerne wieder hätte.
Was also muß ich - und wie - tun, damit die Variablen beim Öffnen des Workbooks mit den Werten aus der ActiveDirectory dauerhaft gefüllt werden?
Schon mal Danke im Voraus ...
Stefan
Public vMailAdresse As String
Public vName As String
Public vVorname As String
Public vStrasse As String
Public vUsername As String
Public vTelefon As String
Public Function ADInfos()
Dim oADInfo As Object
Dim oUser As Object, vUser As String
'Dim vMailAdresse As String, vName As String, vVorname As String, vStrasse As String
Set oADInfo = CreateObject("ADSystemInfo")
vUser = oADInfo.UserName
Set oUser = GetObject("LDAP://" & vUser)
vMailAdresse = oUser.mail
vName = oUser.cn
vVorname = oUser.givenName
vStrasse = oUser.streetAddress
vTelefon = oUser.telephoneNumber
vUsername = oUser.userPrincipalName
Set oUser = Nothing
Set oADInfo = Nothing
End Function
