/build/static/layout/Breadcrumb_cap_w.png

Scripting Question


Need vbscript to write reg dword value

05/20/2010 28262 views
Hi,

I need a vbscript to write a REG_DWORD value.

Below is the key for which I want a vbscript.

HKCU\Software\Microsoft\Office\Frontpage\AddIns\PDMAddIn.Connect\LoadBehavior",dword:00000003

Can any one give the VB Script for this.

Thanks,
Sanhivi
0 Comments   [ + ] Show comments

Comments


Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

All Answers

0
Hi,

You can write the script in 2 mins. anyway, You can find the help here...http://msdn.microsoft.com/en-us/library/yfdfhz1b(VS.85).aspx

The script must be executed only when user is logged in. If you want to create the registry for every user whoever logon to that machine then run the script thru active setup.

let me know if you need more details.

regards
Answered 05/20/2010 by: WSPPackager
Senior Purple Belt

0
I have written the VB Script.
Option Explicit
On Error Resume Next
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\Frontpage\AddIns\PDMAddIn.Connect\LoadBehavior","3","REG_DWORD"

It is working fine.

Thanks
Sanhivi
Answered 05/21/2010 by: sanhivi
Third Degree Green Belt

  • hi, its working fine for me too but its not reflecting the changes if i am installing it through system context.. any idea on that as why its not working in system context?
    • You won't get user data in System Context...Use this script in ActiveSetup so it will be populated when the user logs in.
0
As is common with beginners, you have zero error-trapping, to cater for the time when it stops working fine. And it will...
Answered 05/21/2010 by: VBScab
Red Belt

0

Is there an script to create multiple registry string values\

Answered 11/09/2016 by: bha
White Belt

0
Below is the example code I found on the internet long ago complete with examples.  I use it in almost all of my vbscript when editing, reading, changing the registry.

'-----------------------------------------------------
' Set Optional Registry Entries
'-----------------------------------------------------
Dim strKeyPath, iValues, oReg, BinaryValueName, DWordValueName, DWordValue
Dim StringValueName, StringValue
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE =  &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Set WShShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
userProfilePath = WSHShell.ExpandEnvironmentStrings("%UserProfile%")
WShShell.Popup "Optional Registry Entries being Updated.", 1, "Siemens Industry, Inc", 64
'-----------------------------------------------------
' Variables and Examples used in Registry Settings
'-----------------------------------------------------
' SetStringValue = REG_SZ
' SetDWORDValue = REG_DWORD
' SetBinaryValue = REG_BINARY
' SetExpandedStringValue = REG_EXPAND_SZ
' SetMultiStringValue =
' CreateKey
' DeleteKey
' DeleteValue
      'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
      '”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
'“REG_DWORD”
'strKeyPath = ""
'DWordValueName = ""
'DWordValue = ""
'oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPath, DWordValueName, DWordValue

'”REG_BINARY”
'strKeyPath = ""
'iValues = Array(&H,&H)' Default = "00,00,00,00"
'BinaryValueName = ""
'oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,BinaryValueName,iValues

'“REG_SZ”
'strKeyPath = ""
'StringValueName = ""
'StringValue = "" ' Default = "00000000"
'oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath, StringValueName, StringValue

'“REG_EXPAND_SZ”
'strKeyPath = ""
'StringValueName = ""
'StringValue = "" ' Default = "00000000"
'oReg.SetExpandedStringValue HKEY_CURRENT_USER,strKeyPath, StringValueName, StringValue
Answered 11/22/2016 by: lkitsmiller
Yellow Belt

0
Here's an actual example to see how everything is filled out:

'-----------------------------------------------------
' Show all SystemTray Icons
'-----------------------------------------------------
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer"
DWordValueName = "EnableAutoTray"
DWordValue = "00000000"
oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPath, DWordValueName, DWordValue
Answered 11/22/2016 by: lkitsmiller
Yellow Belt

  • @lkitsmiller:
    You seemed to have forgotten the declaration of the variable strComputer, and you'll also need to assign this variable a value like so:
    strComputer = "."
    This denotes that the system that you want to work with is the local system in your line:

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

Don't be a Stranger!

Sign up today to participate, stay informed, earn points and establish a reputation for yourself!

Sign up! or login

Share

 
This website uses cookies. By continuing to use this site and/or clicking the "Accept" button you are providing consent Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our websites or when you do business with us. For more information about our Privacy Policy and our data protection efforts, please visit GDPR-HQ