Slette nøgler / hive i RegDB

'Get RegEdit.Server object
  Set S = CreateObject("RegEdit.Server")
 
  'Get a key
  Set MyKey = S.GetKey("HKLM\SOFTWARE\MyFirstKey")
 
  'Delete subkeys
  For Each Key In MyKey.SubKeys
    Wscript.Echo Key.Name
  Next


//>Rune

Men kan du ikke bruge
ws.RegDelete mainkey

?

Men altså prøv det her script, det skulle gerne virke:

Const HKEY_CURRENT_USER = &H80000001


sComputer = "."    ' use "." for local computer
Set oReg = GetObject("winmgmts:{impersona­tionLevel=impersonate}!\\" _
      & sComputer & "\root\default:StdRegProv")


sPath = "Software\Adobe\Acrobat Reader\5.0"


DeleteRegistryKey HKEY_CURRENT_USER, sPath


MsgBox "Done..."


Sub DeleteRegistryKey(ByVal sHive, ByVal sKey)
      Dim aSubKeys, sSubKey, iRC
      On Error Resume Next
      iRC = oReg.EnumKey(sHive, sKey, aSubKeys)
      If iRC = 0 And IsArray(aSubKeys) Then
        For Each sSubKey In aSubKeys
          If Err.Number <> 0 Then
            Err.Clear
            Exit Sub
          End If
          DeleteRegistryKey sHive, sKey & "\" & sSubKey
        Next
      End If
      oReg.DeleteKey sHive, sKey
End Sub


//>Rune