Set Registry Value
'
'==================================================
' UPDATE/ADD REGISTRY VALUE
'--------------------------------------------------
' Author: Rory Knowles
' Website: BahamasSecurity.com
' Date: August 9th, 2008
'==================================================
' ARGUMENTS:
'--------------------------------------------------
' REGKEY REGVALUE REGTYPE
'==================================================
' KEY NAMES:
'--------------------------------------------------
' HKEY_CURRENT_USER = HKCU
' HKEY_LOCAL_MACHINE = HKLM
' HKEY_CLASSES_ROOT = HKCR
' HKEY_USERS = HKEY_USERS
' HKEY_CURRENT_CONFIG = HKEY_CURRENT_CONFIG
'==================================================
' REG TYPES:
'--------------------------------------------------
' REG_SZ (String)
' REG_EXPAND_SZ (String)
' REG_DWORD (Integer)
' REG_BINARY (Integer)
'==================================================
' EXAMPLE:
'--------------------------------------------------
' updreg.vbs "HKCU\Console\Test" "MyValue" "REG_SZ"
'==================================================
' REQUIREMENTS:
'--------------------------------------------------
' Visual Basic Script Installed
' WScript Installed
' Administrator Privileges
'==================================================
'
Option Explicit
On Error Resume Next
Dim RegKey, RegValue, RegType
Dim ShellReg
RegKey = WScript.Arguments(0)
RegValue = WScript.Arguments(1)
RegType = WScript.Arguments(2)
If Err = 0 Then
Set ShellReg = CreateObject("WScript.Shell")
ShellReg.RegWrite RegKey, RegValue, RegType
Set ShellReg = Nothing
End If
|