[THIN] Re: Outlook Reminders fix.
- From: "Chris Lynch" <lynch00@xxxxxxx>
- To: <thin@xxxxxxxxxxxxx>
- Date: Thu, 2 Jan 2003 14:49:10 -0800
Yeah. Just figured that out after I visited the MSDN site and found
that the variable is turned into an array. I've got it working now.
Thanks,
Chris
JIC, here is the full script that works:
<SNIP>
'=======================================================================
===
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalCode
3.0
'
' NAME: OutlookReminderFix.vbs
'
' AUTHOR: Chris Lynch
' DATE : 1/2/2003
' VERSION: 1.0
'
' COMMENT: This script will read the following registry value, and then
place it In
' the HKCU hive with the same value:
'HKLM\Software\Microsoft\Office\10.0\Outlook\Setup\First-Run
'
'=======================================================================
===
Option Explicit
const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
Dim strComputer, strKeyPath, strValueName, strValue
Dim oReg
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\10.0\Outlook\Setup"
strValueName = "First-Run"
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_
strValueName,strValue
oReg.SetBinaryValue HKEY_CURRENT_USER,strKeyPath,_
strValueName,strValue
</SNIP>
-----Original Message-----
From: thin-bounce@xxxxxxxxxxxxx [mailto:thin-bounce@xxxxxxxxxxxxx] On
Behalf Of Joe Shonk
Sent: Thursday, January 02, 2003 2:29 PM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Re: Outlook Reminders fix.
You are trying to write a String to a Binary Value. If you need to do =
this, convert the string to an Array (of 0s and 1s) then write it as a =
Binary Value.
ie
-----Original Message-----
From: Chris Lynch [mailto:lynch00@xxxxxxx]
Sent: Thursday, January 02, 2003 3:08 PM
To: TheThin. net
Subject: [THIN] Outlook Reminders fix.
I searched through the arcives, and found the email from Nigel stating
that if the FIRST-RUN values do mot make when comparing the HKLM and
HKCU values, Outlook First-Run will start. He wrote a Kixscript that
would overwrite what was in the HKCU value with the HKLM value. Well, I
have tested this out by manually copying the value over. Now, I am in
the process of creating a VB script that will automate this for users
during logon. Below is the code:
Option Explicit
'Declare variables
Dim strRegValue
Dim strValueName
Dim objRegHKLMPath, objRegHKCUPath, objShell
set strRegValue =3D Nothing
set strValueName =3D Nothing
set objRegHKLMPath =3D Nothing
set objRegHKCUPath =3D Nothing
'Set vairable properties
objRegHKLMPath =3D
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Outlook\Setup\"
objRegHKCUPath =3D
"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\10.0\Outlook\Setup\"
strValueName =3D "First-Run"
set objShell =3D Wscript.CreateObject ("Wscript.Shell")
'Get value of the key, and pass it of strRegValue
strRegValue =3D objShell.RegRead
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Outlook\Setup\First-
Run")
objShell.RegWrite objRegHKCUPath & strValueName, strRegValue,
"REG_BINARY"
Now, everytime I go to run this, I get "outlookreminderfix2.vbs(38, 1)
Microsoft VBScript runtime error: Type mismatch". Line 38 is the very
last line of the code (even though it actually isn't, I have a header
that contains an explination of the script). It appears that the
objShell.RegRead isn't reading the value. Any ideas?
Thanks,
Chris
***********************************************=20
This Weeks Sponsor: 99point9.com
The 99Point9.com Online Tech Support=20
Helpdesk is the one-stop solution for all=20
your server-based computing needs.=20
http://www.99point9.com
************************************************
For Archives, to Unsubscribe, Subscribe or=20
set Digest or Vacation mode use the below link.
http://thethin.net/citrixlist.cfm
***********************************************
This Weeks Sponsor: 99point9.com
The 99Point9.com Online Tech Support
Helpdesk is the one-stop solution for all
your server-based computing needs.
http://www.99point9.com
************************************************
For Archives, to Unsubscribe, Subscribe or
set Digest or Vacation mode use the below link.
http://thethin.net/citrixlist.cfm
***********************************************
This Weeks Sponsor: 99point9.com
The 99Point9.com Online Tech Support
Helpdesk is the one-stop solution for all
your server-based computing needs.
http://www.99point9.com
************************************************
For Archives, to Unsubscribe, Subscribe or
set Digest or Vacation mode use the below link.
http://thethin.net/citrixlist.cfm
Other related posts:
