[THIN] Re: Where are the Office User information kept ?
- From: "Braebaum, Neil" <Neil.Braebaum@xxxxxxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Fri, 23 Apr 2004 11:26:18 +0100
Not particularly in reply to your message, Rick, just that it's the
latest in the thread that I've seen...
When I wrote my initial script, I tended to use the @FULLNAME Kix macro,
and fallback to the @USERID macro, if @FULLNAME didn't produce anything
(it's not mandatory for those fields, for a user account). So if
possible I wrote the full name of the user to the Office user details,
or if not easily available, used the user account.
Just a thought, if the OP is writing his own script.
Neil
> -----Original Message-----
> From: thin-bounce@xxxxxxxxxxxxx
> [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Mack, Rick
> Sent: 23 April 2004 11:12
> To: thin@xxxxxxxxxxxxx
> Subject: [THIN] Re: Where are the Office User information kept ?
>
> Hi Daniel,
>
> I've got one that does the initials as well (somewhere) but
> this should = get you started.
>
> -----
> ; Office2k.kix - patch office default path locations=20
> ; and some other office application settings
>
>
> $regloc=3D"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\"
> $regloc1=3D"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Co
> mmon\UserIn=
> fo"
> $Version=3D"1"
>
> ; check to see if we've run already, increase version to
> change if readvalue($regloc+"Common","Version")=3D$Version=20
> goto end
> endif
>
> ; add user info fields for office XP
> ; first determine length of string
>
> $lenstr=3Dlen(@FULLNAME)
> $unistring=3D""
> ;? "@FULLNAME, $lenstr"
>
> ; now convert the characters to unicode
>
> while $offset<>$lenstr=20
> $Offset=3D$offset+1
> $chr=3Ddectohex(asc(substr(@fullname,$offset,1)))
> $unistring=3D$unistring +$chr+"00"
> loop
>
> $unistring=3D$unistring +"0000"
>
> $result=3Dwritevalue($regloc1,"UserName",$unistring,"REG_BINARY")
> $result=3Dwritevalue($regloc+"Common","Version","$Version","RE
> G_DWORD")
>
> :end
> ---
***********************************************
This e-mail and its attachments are confidential
and are intended for the above named recipient
only. If this has come to you in error, please
notify the sender immediately and delete this
e-mail from your system.
You must take no action based on this, nor must
you copy or disclose it or any part of its contents
to any person or organisation.
Statements and opinions contained in this email may
not necessarily represent those of Littlewoods.
Please note that e-mail communications may be monitored.
The registered office of Littlewoods Limited and its
subsidiaries is 100 Old Hall Street, Liverpool, L70 1AB.
Registered number of Littlewoods Limited is 262152.
************************************************
********************************************************
This week's sponsor - Neoware Thin Clients
Neoware makes computing open, secure, reliable,
affordable, manageable and obsolete-free.
Starting at $199!
http://www.neoware.com
**********************************************************
Useful Thin Client Computing Links are available at:
http://thin.net/links.cfm
***********************************************************
For Archives, to Unsubscribe, Subscribe or
set Digest or Vacation mode use the below link:
http://thin.net/citrixlist.cfm
Other related posts:
