Modify multiple registry keys using vbscript

Hello,

I’m looking for a way to modify some existing registry keys using vbscript. I've figured out how to change one, but am having trouble figuring out to change multiple values. I’d like the registry changes mentioned at the bottom to happen when a user clicks on the YES button on my messagebox.

So far my script looks like this.

Dim wshShell, Response

Response = msgbox("WARNING - You need the latest updates."_
 & vbcrlf & vbcrlf & "Please click YES to install these updates now."_
 & vbcrlf & vbcrlf & "Press NO to temporarily suppress this message."_  
  & vbcrlf & vbcrlf & "Please call the Helpdesk if you have any problems or questions."_
, 52, "IMPORTANT - Please read before continuing.")
if response = vbyes then

'Do this action if they click YES
‘Put registry changes here

Set wshShell = Nothing
end if


[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]

[HKEY_LOCAL_MACHINE\SOFTWARE\Novell\NWGINA\Welcome Screen]
"Bitmap"="Updates.BMP"
"Header Message"="Updates are installing..."

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Kbdclass]
"Start"=dword:00000004
hpopsAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

cubixSoftwareCommented:
http://www.microsoft.com/technet/scriptcenter/guide/sas_wsh_oiuk.mspx?mfr=true

has a good article on updating the registry with scripts.

http://www.microsoft.com/technet/scriptcenter/scripts/os/registry/default.mspx

This is a site with different examples of managing the Registry, including creating multi string values.


HTH :)

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
cubixSoftwareCommented:
...are we done here?
hpopsAuthor Commented:
I was looking for a direct answer to my question with some example code. With the links you provided and some trial and error I got it working. Thanks for your help.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.