Delete Reg Key using VBScript

email me

Option Explicit

‘On Error Resume Next

Dim WshShell
Set WshShell = CreateObject(“WScript.Shell”)

If KeyExists(“HKEY_CLASSES_ROOT\Test\Shell\Open”) Then

WshShell.RegDelete (“HKEY_CLASSES_ROOT\Test\Shell\Open\”)
End If

Function KeyExists(key)
Dim objShell
On Error Resume Next
Set objShell = CreateObject(“WScript.Shell”)
objShell.RegRead (key)
Set objShell = Nothing
If Err = 0 Then KeyExists = True
End Function