Über folgenden Weg finde ich aus dem ADS den Vollen UserNamen heraus. Es wird auch .EMailAdress angeboten, allerdings kommt dann die Fehlermeldung: "Die Active Directory Eigenschaft wurde nicht im Cache gefunden". Dabei ist bei jedem Benutzer die MailAdressen eingetragen.

Muss ich irgendwas mit LDAP machen ?

Set user = GetObject("WinNT://" & Domain & "/" & UserName & ",User")
UserName = user.FullName