code:

---

  $fullname=@userid"
  ;
  $ikey="HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\UserInfo"
  IF (ExistKey($ikey) = 0)
    ;
    $i=1
    $username1=""
    WHILE ($i <= len($fullname))
      $hex=dectohex(asc(substr($fullname,$i,1)))
      $username1=" "+$username1+$hex+"00"
      $i=$i+1
    LOOP
    $username1=LCASE(LTRIM($username1)+"00"+"00")
    $result=WriteValue($ikey, "UserName", $username1, "REG_BINARY")
    IF ($result = 0)
      ? "          "+$ikey+"[UserName]='"+$username1+"'+'"+$fullname+"'"
    ELSE
      ? " error    "+$ikey+"[UserName]='"+$username1+"'+'"+$fullname+"' -> "+$result
    ENDIF
  ENDIF

---