We have just put a new Document management system in and to automate the registering process, I have to push a change out to all users machines so that their Active Directory Display Name is pumped into Office (2003) (Tools --> Options --> User Information Tab under the Name: Field

Anyway, Off to google for help. ner nerrrr

Off to Experts-exchange for help, new question...

Got a reply, run this code:

Dim Path , o, ws
Dim objADsUser, objADSystemInfo, objDisplayName
err.Number = 0
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objADsUser = GetObject("LDAP://" & objADSystemInfo.UserName)
objDisplayName = objADsUser.DisplayName
Path = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\ Common\UserInfo\"
set ws = WScript.CreateObject("WScript.Shell")
o = ws.RegWrite(Path & "UserName", objDisplayName, "REG_SZ")
Set WSHShell = nothing

Easy! However, it pumps the username in as a string (REG_SZ), I need it to convert he display name from ASCII to Binary.

Any nerd know how to do this?

I know, this is not www.perth-nerds.com but there was a problem loading page

So here is worth a try instead!