Solved

Search and replace registry value via VBScript

Posted on 2010-08-12
3
854 Views
Last Modified: 2012-08-13
Search registry for below value via VBScript
"HKEY_CURRENT_USER\Software\Juniper Networks\Network Connect 6.3.0\dsNetworkConnect\logoffonConnect" if DWord is 1

then replace the below Value Dword to 1 or else do nothing

"HKEY_CURRENT_USER\Software\Juniper Networks\Network Connect 6.5.0\dsNetworkConnect\logoffonConnect"
0
Comment
Question by:khalsa70
  • 2
3 Comments
 
LVL 51

Expert Comment

by:HainKurt
ID: 33421953
something like this:

check this: http://ezinearticles.com/?VBScript---Working-with-the-Windows-Registry&id=305615
Const HKEY_CURRENT_USER = &H80000001

Dim objRegistry

Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!" & strComputer & "rootdefault:StdRegProv")



dim rs

dim rr

dim rv

dim st



rs = "Software\Juniper Networks\Network Connect 6.3.0\dsNetworkConnect"

rr = "Software\Juniper Networks\Network Connect 6.5.0\dsNetworkConnect"

st = "logoffonConnect"



objRegistry.GetStringValue HKEY_CURRENT_USER,rs,st,rv

if rv=1 then 

  objRegistry.SetStringValue HKEY_CURRENT_USER,rv,st,1

end if

Open in new window

0
 

Author Comment

by:khalsa70
ID: 33423102
Getting a error with this script. Cannot figure out the issue
0
 
LVL 51

Accepted Solution

by:
HainKurt earned 500 total points
ID: 33423467
here is a working sample

I have

HK\Test\
A : SZ
B : DWord

under HKEY_CURRENT_USER
Const HKEY_CURRENT_USER = &H80000001



Dim objRegistry

dim strComputer

strComputer = "."



Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")



dim rs

dim rr

dim rv

dim st



rs = "HK\Test"

rr = "HK\Test"

str = "B" 'dword value

sts = "A" 'string value



objRegistry.GetDWORDValue HKEY_CURRENT_USER,rs,str,rv

WScript.Echo "B = " & rv



if rv=1 then 

  objRegistry.SetStringValue HKEY_CURRENT_USER,rs,sts,"HK"

  WScript.Echo "set HK"

else

  objRegistry.SetStringValue HKEY_CURRENT_USER,rs,sts,"HainKurt"

  WScript.Echo "set HainKurt"

end if

Open in new window

0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Welcome, welcome!  If you are new to the series and haven't been following along, please take a brief moment to review the first three installments: Part 1 (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/A_266-VBScri…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

757 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now