[THIN] Re: Outlook Initials Capture using Modified Mandatory Profile
- From: "Braebaum, Neil" <Neil.Braebaum@xxxxxxxxxxxxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Wed, 11 Jul 2007 14:47:05 +0100
Just one thing I missed, when reading back my message - I left out the
subroutine that gets called, so here it is:-
**** Start of Kixtart extract ****
:hexsub
select
case $Remainder=10
$HexChar="A"
case $Remainder=11
$HexChar="B"
case $Remainder=12
$HexChar="C"
case $Remainder=13
$HexChar="D"
case $Remainder=14
$HexChar="E"
case $Remainder=15
$HexChar="F"
endselect
return
**** End of Kixtart extract ****
In fairness to me, it's because it's part of a way bigger Office Kix
script, and I only extracted the relevant bits - just forgot to include
all of 'em!
Neil
> -----Original Message-----
> From: thin-bounce@xxxxxxxxxxxxx
> [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Braebaum, Neil
> Sent: 11 July 2007 14:35
> To: thin@xxxxxxxxxxxxx
> Subject: [THIN] Re: Outlook Initials Capture using Modified
> Mandatory Profile
>
> Here you go - this is in Kix, there's now a function to do
> the stuff I'm doing to convert to hex (and if you're good at
> algorithms, you'll spot the assumption and limitation to my
> conversion algorithm, there! ;-)).
> Up to now, the only difference in the way this works, has
> been the numeric version (11.0) representing the Office
> version (11.0 being Office 2003, when I wrote it, it was 8.0
> (for Office97)) in the registry paths, so all I've had to do
> to use this on subsequent Office versions is edit numeric in
> the registry paths for the appropriate version of Office.
>
> I wrote this - and going back some years, too. If you're
> gonna use it, don't pass it off as your own rather give
> credit where due - that's all I ask.
>
> Neil
>
> **** Start of Kixtart extract ****
>
> ; (c) copyright N Braebaum 1998
> ; Don't plagiarise - I'll find out!
> ;
> ; **** Common settings
> ; Following variables used for configuring UserName within Office
>
> $Base=16
> $FillerString="00"
> $HexStr=""
>
> if "@FULLNAME"=""
> $String=@USERID
> else
> $String="@FULLNAME"
> endif
>
> $StrLen=len("$String")
> $Count=1
>
> while $Count<=$StrLen
> $StrChar=substr("$String",$Count,1)
> $AsciiVal=asc($StrChar)
> $HexChar=$AsciiVal/$Base
> $HexStr="$HexStr" + "$HexChar"
> $Remainder=($AsciiVal-($HexChar*$Base))
> if $Remainder>=10
> gosub hexsub
> else
> $HexChar=$Remainder
> endif
> $HexStr="$HexStr"+"$HexChar"+"$FillerString"
> $Count=$Count+1
> loop
>
> ; Fiddle-factor 'cos Office seems to want a few trailing fillers!...
>
> $HexStr="$HexStr"+"$FillerString"+"$FillerString"
>
> if
> writevalue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\C
> ommon\User
> Info","UserInitials","2800630029006e006c0062000000","REG_BINARY")=0
> ? "writevalue Common\UserInfo\UserInitials worked..."
> else
> ? "writevalue Common\UserInfo\UserInitials failed..."
> endif
>
> if
> writevalue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\C
> ommon\User
> Info","UserName","$HexStr","REG_BINARY")=0
> ? "writevalue Common\UserInfo\UserName worked..."
> else
> ? "writevalue Common\UserInfo\UserName failed..."
> endif
>
> **** End of Kixtart extract ****
>
>
>
> > -----Original Message-----
> > From: thin-bounce@xxxxxxxxxxxxx
> > [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Jensen, Jay
> > Sent: 11 July 2007 14:14
> > To: thin@xxxxxxxxxxxxx
> > Subject: [THIN] Re: Outlook Initials Capture using Modified
> Mandatory
> > Profile
> >
> > We are using Office 2003!
> >
> > Jay
> > TCS Field Systems-La Crosse
> > Citrix Server Team
> > -----Original Message-----
> > From: thin-bounce@xxxxxxxxxxxxx
> > [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Braebaum, Neil
> > Sent: Wednesday, July 11, 2007 8:11 AM
> > To: thin@xxxxxxxxxxxxx
> > Subject: [THIN] Re: Outlook Initials Capture using Modified
> Mandatory
> > Profile
> >
> > > -----Original Message-----
> > > From: thin-bounce@xxxxxxxxxxxxx
> > > [mailto:thin-bounce@xxxxxxxxxxxxx] On Behalf Of Jensen, Jay
> > > Sent: 11 July 2007 14:05
> > > To: thin@xxxxxxxxxxxxx
> > > Subject: [THIN] Outlook Initials Capture using Modified Mandatory
> > > Profile
> > >
> > > It seems I am having difficulty capturing the Office (Outlook in
> > > particular) first time name and initials when I use a Mandatory
> > > Profile scheme and capturing the proper Registry Key to
> > reload when a
> > > user logs back into a server (Flex Profiles if you will).
> > >
> > > Each time I open up Outlook I always have to enter Name and
> > Initials.
> > > Since I have captured the Outlook HKLM Software
> > > key the other Outlook Profile information is loaded properly.
> > >
> > > Does anyone know how I could extract the Name and Initials from a
> > > Registry Key fro a particular user? (I imagine this
> > information is in
> > > the HKCU software key but I don't see how I can extract the
> > individual
> > > user information easily).
> > >
> > > A second thought is there a way to provide a name and
> initial to a
> > > Registry key each time a user logs into Outlook (or Citrix
> > Session) so
> > > the user does not get prompted to enter this information manually?
> >
> > Indeed there is - I wrote a script to do this in 98 (I think) for
> > Office 97, using Kixtart. All that's really changed since I
> wrote it,
> > is that Kix now has a decimal to hex conversion function
> built in, and
> > the various Office incarnations, since, have a incremented version
> > number for their hierarchies under HKCU.
> >
> > What version of Office are you using?
> >
> > Neil
>
>
>
> **************************************************************
> ***************
>
> This email 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 email 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 Shop Direct Group Limited or
> its subsidiaries. Please note that email communications may
> be monitored. The registered office of Littlewoods Shop
> Direct Group Limited is 1st Floor, Skyways House, Speke Road,
> Speke, Liverpool, L70 1AB, registered number 5059352
>
> **************************************************************
> ***************
>
>
>
>
> This message has been scanned for viruses by BlackSpider
> MailControl - www.blackspider.com SBC SITES ONLY GOOGLE
> SEARCH: http://www.F1U.com
> ************************************************
> For Archives, RSS, to Unsubscribe, Subscribe or set Digest or
> Vacation mode use the below link:
> //www.freelists.org/list/thin
> ************************************************
>
SBC SITES ONLY GOOGLE SEARCH: http://www.F1U.com
************************************************
For Archives, RSS, to Unsubscribe, Subscribe or
set Digest or Vacation mode use the below link:
//www.freelists.org/list/thin
************************************************
Other related posts:
