[THIN] Re: Where are the Office User information kept ?
- From: "Greg Reese" <GReese@xxxxxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Thu, 22 Apr 2004 17:18:55 -0400
I added some stuff in my login script to set the user name and initials
for people.
Here is what I ended up with. Neil and others were a huge help. I
can't take credit for it.
There was a big thread on this at Kix.org also.
Hopefully freelists will not mangle this too bad.
Greg
;Create basic office settings
;Registry locations
=20
$ushelfolders=3D'HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\=
S
hell Folders'
$userwinkey=3D'HKCU\Software\Microsoft\Windows'
$machinewinkey=3D'HKLM\Software\Microsoft\Windows'
$mofckey=3D'HKLM\Software\Microsoft\Office\9.0\'
$uofckey=3D'HKCU\Software\Microsoft\Office\9.0\'
$company=3D'Your Company Name Here'
=20
MSUSERINFO
FUNCTION MSUSERINFO()
=20
; Process Company Name
$x=3D1
$regexp=3D''
WHILE $x<(Len($company)+1)
$regexp=3D$regexp+DecToHex(Asc(SubStr($company,$x,1)))+'00'
$x=3D$x+1
LOOP
$regexp=3D$regexp+'0000'
$companybin=3D$regexp
=20
; Process FullName
$x=3D1
$regexp=3D''
WHILE $x<(Len(@fullname)+1)
$regexp=3D$regexp+DecToHex(Asc(SubStr(@fullname,$x,1)))+'00'
$x=3D$x+1
LOOP
$regexp=3D$regexp+'0000'
$fullnamebin=3D$regexp
; Process UserID
$useridbin=3DSubStr(@wuserid,1,2)
$x=3D1
$regexp=3D''
WHILE $x<(Len($useridbin)+1)
$regexp=3D$regexp+DecToHex(Asc(SubStr($useridbin,$x,1)))+'00'
$x=3D$x+1
LOOP
$regexp=3D$regexp+'0000'
$initials=3D$regexp
=20
$rc=3DAddKey($uofckey+$ver+'\Common\UserInfo')
=20
$regkey=3D$uofckey+$ver+'\Common\UserInfo'
=20
$rc=3DWriteValue($regkey,'Company',$companybin,'REG_BINARY')
$rc=3DWriteValue($regkey,'UserName',$fullnamebin,'REG_BINARY')
=
$rc=3DWriteValue($regkey,'UserInitials',$initials,'REG_BINARY')
=20
ENDFUNCTION=20
-----Original Message-----
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On
Behalf Of Pardee, Michael P.
Sent: Thursday, April 22, 2004 5:04 PM
To: 'thin@xxxxxxxxxxxxx'
Subject: [THIN] Re: Where are the Office User information kept ?
I can't believe I am reading this. I have been getting calls from =3D
users all over the company asking me to let them know when I am done
with their spreadsheets and documents. I was never in them! I was just
about to =3D start looking in to this since I am in the same boat as =
you.
The funny thing =3D is most of them never asked me *why* I was in their
docs, just asked me to =3D let them know when I was out.=3D20
-----Original Message-----
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On =
=3D
Behalf Of Daniel Schoppmann
Sent: Thursday, April 22, 2004 5:01 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Where are the Office User information kept ?
Hi list
And here is my last question for today :-)
After that I installed the Office 2000 Suite, some users, who probably
didn't enter THEIR name and initials in the Popup field that oppened =3D
when they first start Office, and kept my name and initials in that
field, =3D ran arround creating and changing Office documents on my
behalf. :-( So I searched where in the registry or somewhere else this
information is =3D kept, but I didn't find it.
Of course user can change this themselves within Word, but I would like
=3D to script this.
So, does anybody knows where are the Office User information kept ?
Ciao, Daniel
dschoppmann@xxxxxx
Meer=3DE4ckerstr. 24
68163 Mannheim
home: 0621/8191407
mobil:0172/6395617
********************************************************
This week's sponsor - Neoware Thin Clients Neoware makes computing =3D
open, secure, reliable, affordable, manageable and obsolete-free.=3D20
Starting at $199!=3D20 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 =
=3D
use the below link:
http://thin.net/citrixlist.cfm
Email Confidentiality Notice: The information contained in this =3D
transmission is confidential, proprietary or privileged and may be
subject to =3D protection under the law, including the Health Insurance
Portability and =3D Accountability Act (HIPAA). The message is intended
for the sole use of the =3D individual or entity to whom it is =
addressed.
If you are not the intended recipient, =3D you are notified that any =
use,
distribution or copying of the message is strictly prohibited and may
subject you to criminal or civil penalties. =3D If you received this
transmission in error, please contact the sender immediately by replying
to this email and delete the material from any computer.
********************************************************
This week's sponsor - Neoware Thin Clients Neoware makes computing open,
secure, reliable, affordable, manageable and obsolete-free.=20
Starting at $199!=20
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
********************************************************
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:
