Dim oStory As Range
Dim dvVorname As String
Dim dvNachname As String
Dim dvBuero As String
Dim dvRufnummer As String
Dim dvEmail As String
Dim dvRufnummernFax As String
Dim varQuery As String
Dim objSystemInfo As Object
Dim objBenutzer As Object
Set objSystemInfo = CreateObject("ADSystemInfo")
varQuery = "LDAP://" & objSystemInfo.UserNameSet objBenutzer = GetObject(varQuery)
dvVorname = objBenutzer.givenName
dvNachname = objBenutzer.sn
dvBuero = objBenutzer.PhysicalDeliveryOfficeName
dvRufnummer = objBenutzer.telephoneNumber
dvEmail = objBenutzer.mail
dvRufnummernFax = objBenutzer.facsimileTelephoneNumber
ActiveDocument.Variables("Vorname").Value = dvVorname
ActiveDocument.Variables("Nachname").Value = dvNachname
ActiveDocument.Variables("Buero").Value = dvBuero
ActiveDocument.Variables("Rufnummer").Value = dvRufnummer
ActiveDocument.Variables("Email").Value = dvEmail
ActiveDocument.Variables("RufnummernFax").Value = dvRufnummernFax
ActiveDocument.Fields.Update