CCTV Forum News
Use our miniPSS tool to get
enhanced hotkeys in PSS.
miniPSS is an EXE wrapper
for PSS on Windows XP/7.
Visit the Forum Post
Use our miniPSS tool to get
enhanced hotkeys in PSS.
miniPSS is an EXE wrapper
for PSS on Windows XP/7.
Visit the Forum Post
All CCTV Pages
All Visual Basic
All Categories
Boottimer
Boot
USB
Avermedia Dahua Geo
DVR Geovision Kalatel
Livevue Nlite PSS
Remote Video Tweak
USB Setup USB Boot
VB6 VBScript X-irs
Avermedia Dahua Geo
DVR Geovision Kalatel
Livevue Nlite PSS
Remote Video Tweak
USB Setup USB Boot
VB6 VBScript X-irs
Partners
'
'==================================================
' 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
|