[THIN] Re: Where are the Office User information kept ?

  • From: "Daniel Schoppmann" <dschoppmann@xxxxxx>
  • To: <thin@xxxxxxxxxxxxx>
  • Date: Fri, 23 Apr 2004 08:03:31 +0200

Thank U Greg, that grat I will try out.

-----Original Message-----
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx]On
Behalf Of Greg Reese
Sent: Thursday, April 22, 2004 11:19 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: Where are the Office User information kept ?


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
********************************************************
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: