Visual Basic - Registro de windows XP

Hola, estoy intentando acceder al registro para borrar unas claves y bueno...., las claves estan en SYSTEM\CurrentControlSet\Enum\USB\ mas aparte las subclaves por donde se mueve. Llegado un momento las quiero borrar pero no lo hace con el RegDeleteKey, me devuelve un valor de 5.

Me gustaria saber como puedo solucionar esto ya que es vital para el funcionamiento de la aplicacion que consistiria en escanear el registro en busca de dispositivos USB y borrar solo los que quiera.

Muchisimas gracias de antemano.

abres el key con RegOpenKeyEx ?
mejor seria que pongas tu code

chao
Liebesschmerz--

No, no la abro, lo que quiero es eliminar la clave directamente no crei que se tubiera que abrir, muchas gracias, lo intentare y ya te comentare, muchisimas gracias

Este es el codigo que utilizo, pero me sigue dando error, es el numero 5, no tengo acceso a la clave HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\USB\Vid_054c&Pid_0010\5&29c7aec0&0&1 donde aqui hay otra subclave, LogConf pero igualmente sino hay nada tampoco la borra. El caso es que acceder si que accede ja que me lee las claves, nose que hacer, si me puedes ayudar te lo agradeceria muchisimo. He usado modulos y clases pero no hay forma, siempre me da el mismo error, ya sea con regdeletekey o shdeletekey, es un Windows XP.
Muchisimas gracias.

Dim UsbDevices(255)
Dim UsbDeviceTypes(255)
Dim UsbDeviceDescription(255)
Dim AllowedUsbDevices(255)
Dim Key2(255)
Dim SubKey2(255)

Private Sub Form_Load()
Dim w As Boolean

Dim fbiReg As clsFBIRegistry
Set fbiReg = New clsFBIRegistry

Form1.Hide
Set Reg = GetObject("winmgmts:root\Default:StdRegProv")
Key = "SYSTEM\CurrentControlSet\Enum\USB"
retur = Reg.enumKey(HKEY_LOCAL_MACHINE, Key, subkeys)

DeviceTypeCounter = 0
For Each subkey In subkeys
UsbDeviceTypes(DeviceTypeCounter) = subkey

DeviceTypeCounter = DeviceTypeCounter + 1

Next
For DeviceCounter = 0 To DeviceTypeCounter - 1
Key = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UsbDeviceTypes(DeviceCounter)
retur = Reg.enumKey(HKEY_LOCAL_MACHINE, Key, subkeys)

i = 0
For Each subkey In subkeys
UsbDevices(i) = subkey

i = i + 1
Next
Key = "SYSTEM\CurrentControlSet\Enum\USB" & "\" & UsbDeviceTypes(DeviceCounter) & "\" & UsbDevices(0)

retur = Reg.GetStringValue(HKEY_LOCAL_MACHINE, Key, "DeviceDesc", Description)
UsbDeviceDescription(DeviceCounter) = Description
SubKey2(DeviceCounter) = Key
Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set CfgFile = fs.OpenTextFile("c:\usb\Devices.txt")
AllowedDeviceCounter = 0

Do Until CfgFile.AtEndOfStream
AllowedUsbDevices(AllowedDeviceCounter) = CfgFile.ReadLine

AllowedDeviceCounter = AllowedDeviceCounter + 1
Loop
CfgFile.Close


For x = 0 To DeviceTypeCounter - 1
OK = True
For y = 0 To AllowedDeviceCounter - 1
If UsbDeviceDescription(x) = AllowedUsbDevices(y) Then
OK = False
End If
Next
If OK = True Then
S = SubKey2(x)
u = MsgBox("No se puede usar " & S, vbExclamation) = vbOK
fbiReg.Key = SubKey2(x) & "\LogConf"
f = fbiReg.DeleteKey()
'(HKEY_LOCAL_MACHINE, SubKey2(x))

End If
Next
End
End Sub