Solved

VB Script to check registry for existing key and add if not exist

Posted on 2008-10-09
2
1,023 Views
Last Modified: 2012-05-05
Hi,

I have a little amount of vbs skill but am in a hurry today, so 500 big ones to the person who helps me write a vbs to do the following in accordance with the M$ article

http://support.microsoft.com/kb/932842/en-us?spid=2530&sid=95

The entry needs to be in the following subkey

HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options

the key should be

UpdateHeaderFooter

with a value of 1

Of course I'd like to check the key exists before the operation so that it isnt done unessecarily

Many Thanks
0
Comment
Question by:BarkersIT
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 38

Accepted Solution

by:
Shift-3 earned 250 total points
ID: 22679499
Paste the script below into a text file with a .vbs extension.  Running it will set the desired value.  Registry writes are fast enough that checking whether the value exists first isn't worthwhile.

You can also do this in batch with the command
reg add HKCU\Software\Microsoft\Office\11.0\Word\Options /v UpdateHeaderFooter /t REG_DWORD /d 1 /f


Const HKEY_CURRENT_USER = &H80000001
 
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
 
strKeyPath = "Software\Microsoft\Office\11.0\Word\Options"
strValueName = "UpdateHeaderFooter"
strValue = 1
 
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

Open in new window

0
 
LVL 65

Assisted Solution

by:RobSampson
RobSampson earned 250 total points
ID: 22682009
Hi, if you want to check the value first (although there's not much of a performance difference there for a single DWord value) you can use this.

Regards,

Rob.
Const HKEY_CURRENT_USER = &H80000001
 
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
 
strKeyPath = "Software\Microsoft\Office\11.0\Word\Options"
strValueName = "UpdateHeaderFooter"
strValue = 1
 
intReturn = objRegistry.GetDWordValue(HKEY_CURRENT_USER, strKeyPath, strValueName, strCurrentValue)
If intReturn = 0 Then
	If CInt(strCurrentValue) <> CInt(strValue) Then
		objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
	Else
		WScript.Echo strKeyPath & "\" & strValueName & " is already set to " & strCurrentValue
	End If
Else
	WScript.Echo strKeyPath & "\" & strValueName & " is not set.  Setting to " & strValue
	objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
End If

Open in new window

0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

615 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question