During Automation, we normally encounter some scenarios writing vbscripts using which we try to update the registry values.
Below is the snippet provided just to give the foot step to proceed further activities.
‘PolicyEdit.vbs
‘Version: 2.0
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ CONSTANTS
‘REGISTRY
const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
‘FILESYSTEM
Const ForAppending = 8
Const ForReading = 1
Const OpenAsDefault = -2
Const FailIfNotExist = 0
Const HARD_DISK = 3
‘get script path and setup log file
dim strLocalPath
strLocalPath = objFSO.GetParentFolderName(WScript.ScriptFullName) ‘ie. C:WorkUpdateRemote
strWorkPath = strLocalPath & “”
strLogFile = “PolicyEdit.log”
‘BEGIN
strKeyPath = “SOFTWAREMicrosoftWindowsCurrentVersionPoliciessystem”
‘Get Computer name
Dim arrComputer
ReDim arrComputer(1)
strComputer = Wscript.arguments(0)
‘Set reg object
Set objReg=GetObject( _
“winmgmts:{impersonationLevel=impersonate}!\” & _
strComputer & “rootdefault:StdRegProv”)
strValueName = “scforceoption”
strValue = “0”
‘Check value first and update log
objReg.GetDWORDValue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strCheckVal = “HKEY_LOCAL_MACHINE” & strKeyPath & ” – ” _
& strValueName & ” contains ” & dwValue
‘Set value then verify
objReg.SetDWORDValue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
If Err = 0 Then
objReg.GetDWORDValue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strResult = “HKEY_LOCAL_MACHINE” & strKeyPath & ” – ” _
& strValueName & ” contains ” & dwValue
‘ WScript.Echo strResult
Else
strResult = “Error in creating key” & _
” and DWORD value = ” & Err.Number
End If
‘update log
Set objLogFile = objFSO.OpenTextFile _
(strWrkPath & strLogFile, ForAppending, True)
objLogFile.Write(“**** ” & Now() & ” ****” & vbCrLf _
& “Server: ” & strComputer & vbCrLf _
& “Before Edit: ” & vbCrLf & strCheckVal & vbCrLf _
& “After Edit: ” & vbCrLf & strResult & vbCrLf & vbCrLf)
objLogFile.Close
Copy this into the notepad and name with .vbs extension. You can even call using commandline
This code snippet also used to accept the arguements from command-line.