'
'==================================================
' 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