A VBScript script
on error resume next
Set WSHShell = Wscript.CreateObject("Wscript.Shell")
wshshell.regwrite "HKCU\Software\Microsoft\Office\11.0\Common\UserInfo\Username",CLng(&H00),"REG_BINARY"
wshshell.regwrite "HKCU\Software\Microsoft\Office\11.0\Common\UserInfo\UserInitials",CLng(&H00),"REG_BINARY"
