'==========================================================================
'
' VBScript:  AUTHOR: Ed Wilson , MS,  12/15/2003
'
' NAME: <DeleteRegKey.vbs>
'
' COMMENT: Key concepts are listed below:
'1.use of constants for registry
'2. use of DeleteKey method
'3. use of StdRegProv
'==========================================================================
Option Explicit
On Error Resume Next
Dim strKeyPath ' the portion of registry to read
Dim strComputer ' the target computer
Dim objReg ' holds connection to registry provider
Dim subKey ' used to enumerate throught the array
Dim arrSubKeys ' holds the sub keys
Dim ParentKey
Const HKCR = &H80000000 'HKEY_CLASSES_ROOT
Const HKCU = &H80000001 'HKEY_CURRENT_USER
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Const HKU  = &H80000003 'HKEY_USERS
Const HKCC = &H80000005 'HKEY_CURRENT_CONFIG

ParentKey = "SOFTWARE\EdWilson"
strKeyPath = "SOFTWARE\EdWilson\VbscriptBook"
	
strComputer = "."

Set objReg=GetObject("winmgmts:\\" &_ 
	strComputer & "\root\default:StdRegProv")


objReg.DeleteKey HKLM, strKeyPath
objReg.DeleteKey HKLM, ParentKey
	
If Err.Number = 0 Then 
	WScript.Echo("Deleted key:" & strKeyPath)
	WScript.Echo("Deleted subKey: " & ParentKey)
Else 
	WScript.Echo("Error number " & Err.Number & "occurred")
End If