[THIN] Re: User information in office

From: "Braebaum, Neil" <Neil.Braebaum@xxxxxxxxxxxxxxxxx>
To: <thin@xxxxxxxxxxxxx>
Date: Thu, 5 Feb 2004 09:34:11 -0000
So long as you've got a script that works.
 
I wrote mine for Office 97, and updated it along the way. It does much
the same, uses the fullname macro if there's one populated, otherwise
uses the userid macro for the string. As I probably mentioned in my
previous emails on the subject, when I wrote it in Kix, there wasn't a
handy dectohex function, so I had to code that myself.
 
Neil
 
----Original Message-----
From: Greg Reese [mailto:GReese@xxxxxxxxxxxxxxxx] 
Sent: 04 February 2004 21:56
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: User information in office



I found a script on the Kix website that is for creating outlook
profiles.  I was able to carve out the piece for populating the user
info and add it to my login script and it works great.  It looks long
but it runs in a flash.
 
I could not find where it stores the mailing address in word.  That is
my next task though.
 
 
Greg
 
;Registry locations
 
$ushelfolders='HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\S
hell Folders'
 $userwinkey='HKCU\Software\Microsoft\Windows'
 $machinewinkey='HKLM\Software\Microsoft\Windows'
 $mofckey='HKLM\Software\Microsoft\Office\9.0\'
 $uofckey='HKCU\Software\Microsoft\Office\9.0\'
 
 
 $company='your company name here'
 
 MSUSERINFO
 


 FUNCTION MSUSERINFO()
                 
       ; Process Company Name
       $x=1
       $regexp=''
       WHILE $x<(Len($company)+1)
          $regexp=$regexp+DecToHex(Asc(SubStr($company,$x,1)))+'00'
          $x=$x+1
       LOOP
       $regexp=$regexp+'0000'
       $companybin=$regexp
             
       ; Process FullName
       $x=1
       $regexp=''
       WHILE $x<(Len(@fullname)+1)
          $regexp=$regexp+DecToHex(Asc(SubStr(@fullname,$x,1)))+'00'
          $x=$x+1
       LOOP
       $regexp=$regexp+'0000'
       $fullnamebin=$regexp
       ; Process UserID
       $useridbin=SubStr(@wuserid,1,2)
       $x=1
       $regexp=''
       WHILE $x<(Len($useridbin)+1)
          $regexp=$regexp+DecToHex(Asc(SubStr($useridbin,$x,1)))+'00'
          $x=$x+1
       LOOP
       $regexp=$regexp+'0000'
       $initials=$regexp
 
       
         $rc=AddKey($uofckey+$ver+'\Common\UserInfo')
       
       $regkey=$uofckey+$ver+'\Common\UserInfo'
       
          $rc=WriteValue($regkey,'Company',$companybin,'REG_BINARY')
          $rc=WriteValue($regkey,'UserName',$fullnamebin,'REG_BINARY')
          $rc=WriteValue($regkey,'UserInitials',$initials,'REG_BINARY')
       
    
 ENDFUNCTION
 
 


***********************************************
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.
************************************************
[THIN] Re: User information in office

Other related posts:
