while $counter =< $x
$Y=substr (ucase(@userid),$counter,1)
$ascii=asc ($y)
$hex=dectohex ($ascii)
$counter=$counter+1
;the spaces are to force at stringcopy.
$Initials=" "+$Initials+$hex+"00"
loop
$Initials=ltrim ($Initials) +"00" +"00"

$counter=1
$Name=""

$x = len (@fullname)

while $counter =< $x
$Y=substr (@fullname,$counter,1)
$ascii=asc ($y)
$hex=dectohex ($ascii)
$counter=$counter+1
$Name=" "+$Name+$hex+"00"
loop
$Name=ltrim ($Name) +"00" +"00"

;Check the keys for the right version of office

Writevalue("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo","UserInitials",$Initials,"reg_binary")
Writevalue("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserInfo","UserName",$Name,"reg_binary")

It's called UserAddress in Office97, but it's not there in Office 2000

code:

---

Updating this thread with my code for Office XP.

Our AD uses last-name-first fullnames, so there's code in here to "turn around" the user's name.

---------------------------------------------

$comma = instr(@fullname,",")
$firstname = ltrim(substr(@fullname,$comma+1,len(@fullname)-$comma))
$middleinitial=("")

	if instr(@fullname,".")
	$middleinitial=ltrim(substr($firstname,len($firstname)-2,2))
	endif

$lastname = ltrim(substr(@fullname,1,$comma-1))
$firstnamefirst=$firstname + (" ") + $lastname
$firstinitial = ltrim(substr($firstname, 1, 1))
$lastinitial = ltrim(substr($lastname, 1, 1))
$initials=$firstinitial + $middleinitial + $lastinitial

$x=1
$usernamehex=''
while $X<len(''+$firstnamefirst)+1
$usernamehex=$usernamehex+dectohex(asc(substr($firstnamefirst,$x,1)))+'00'
$x = $x + 1
loop
$usernamehex=$usernamehex + '0000'

$x=1
$userinitialshex=''
while $X<len(''+$initials)+1
$userinitalshex=$userinitialshex+dectohex(asc(substr($initials,$x,1)))+'00'
$x = $x + 1
loop
$userinitialshex=$userinitialshex + '0000'

WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\UserInfo", "UserName", $usernamehex, "reg_binary")
WriteValue ("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\UserInfo", "UserInitials", $userinitialshex, "reg_binary")

---

code:

---

$splitbetweennames = instr(@fullname," ")

	if instr(@fullname,". ")
	$splitbetweennames = instr(@fullname,". ")
	endif

$firstname = substr(@fullname,1,$splitbetweennames)

$firstnametemp = $firstname

	if instr(@fullname,". ")
	$firstnametemp = substr(@fullname,1,len($firstnametemp)-3)
	endif	

? "First name, no MI: " $firstnametemp

$lastname = ltrim(substr(@fullname,$splitbetweennames+1,len(@fullname)-$splitbetweennames))

? "Last name: " + $lastname

$firstinitial = ltrim(substr(@fullname,1,1))

$middleinitial=("")

	if instr(@fullname,".")
	$middleinitial=ltrim(substr($firstname,len($firstname)-2,2))
	endif

$lastinitial = ltrim(substr($lastname,1,1))

? "initials: " + $firstinitial + $middleinitial + $lastinitial

---