Function to Create a Registry Key

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Function to Create a Registry Key

Logged in as: Guest

arrSession:exec spGetSession 2,16,35249

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Function to Create a Registry Key
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Function to Create a Registry Key - 6/8/2006 7:43:28 AM

DiGiTAL.SkReAM

Posts: 1144
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

This function will create the registry key passed to it.
It will also create any parent keys required.
Returns a 0 if successfull, or a 1 if errors occur.

Function fCreateRegKey(ByVal sKeyToCreate)
Dim aKeyPathSubSection, hKeyRoot, iElement
Dim sKeyToMake, iRegErr, sRegErr, oWMIReg
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
aKeyPathSubSection = Split(sKeyToCreate, "\")
 Select Case UCase(aKeyPathSubSection(0))
  Case "HKEY_CLASSES_ROOT", "HKCR"
   hKeyRoot = HKEY_CLASSES_ROOT
  Case "HKEY_CURRENT_USER", "HKCU"
   hKeyRoot = HKEY_CURRENT_USER
  Case "HKEY_LOCAL_MACHINE", "HKLM"
   hKeyRoot = HKEY_LOCAL_MACHINE
  Case "HKEY_USERS", "HKU"
   hKeyRoot = HKEY_USERS
  Case "HKEY_CURRENT_CONFIG"
   hKeyRoot = HKEY_CURRENT_CONFIG
  Case Else
   fCreateRegKey = 1
   Exit Function
 End Select 
 For iElement = 1 To UBound(aKeyPathSubSection)
  sKeyToMake = sKeyToMake & "\" & aKeyPathSubSection(iElement)   
 Next
 If Left(sKeyToMake,1) = "\" Then sKeyToMake = Right(sKeyToMake, Len(sKeyToMake)-1)
On Error Resume Next
Set oWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
oWMIReg.CreateKey hKeyRoot, sKeyToMake
iRegErr = Err.Number
On Error GoTo 0
 If iRegErr = 0 Then
  fCreateRegKey = 0
 Else
  fCreateRegKey = 1
 End If
End Function

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury