Microsoft Office Word Initialen mit Active Directory Benutzer Initialen abgleichen

Hallo,

Ich konfiguriere grade Office 2013 auf 2012 R2 Remote Desktop Servern. Wenn ich einen Benutzer in der AD neu anlege und mich damit anmelde bekommt Word den angemeldeten Benutzer und die ersten Buchstaben des Vor- und Nachnamen als Initialen eingetragen. Ich habe schon diverse Scripte gefunden um diesen Vorgang bei jeder Anmeldung erneut durchzuführen ( z.B. hier: http://blogs.technet.com/b/heyscriptingguy/archive/2005/07/13/how-can-i ... ), aber eigentlich passt ja alles.

Nur in einigen Fällen weichen natürlich die Initialen von der Buchstabenkombination ab. Die abweichenden Initialen werden bereits im Vorfeld ins AD eingetragen aber von Word schlicht ignoriert und können gemäß vieler vornehmlich älterer Beiträge nicht aus dem AD gelesen werden. Gibt es da mitlerweile eine elegante Lösung?

HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo

Set objShell = CreateObject("Wscript.Shell")  
Set objSysInfo = CreateObject("ADSystemInfo")   
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)  
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\Common\UserInfo\UserInitials",objUser.Initials  

Set objSysInfo = CreateObject("ADSystemInfo")  

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)  

Set objWord = CreateObject("Word.Application")  
objWord.UserName = objUser.givenName & " " & objUser.SN  
objWord.UserInitials = objUser.initials
objWord.Quit