[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 867
  • Last Modified:

Search and replace registry value via VBScript

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
khalsa70
Asked:
khalsa70
  • 2
1 Solution
 
HainKurtSr. System AnalystCommented:
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
 
khalsa70Author Commented:
Getting a error with this script. Cannot figure out the issue
0
 
HainKurtSr. System AnalystCommented:
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

Prep for the ITIL® Foundation Certification Exam

December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now