Visual Basic - Registro de windows XP

Life is soft - evento anual de software empresarial
 
Vista:

Registro de windows XP

Publicado por Jordi (10 intervenciones) el 15/01/2004 19:04:05
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Registro de windows XP

Publicado por Liebesschmerz-- (322 intervenciones) el 16/01/2004 04:06:05
abres el key con RegOpenKeyEx ?
mejor seria que pongas tu code

chao
Liebesschmerz--
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Registro de windows XP

Publicado por Jordi (10 intervenciones) el 16/01/2004 12:19:46
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Registro de windows XP

Publicado por Jordi (10 intervenciones) el 19/01/2004 17:40:54
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Registro de windows XP

Publicado por Jordi (10 intervenciones) el 19/01/2004 17:41:48

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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Registro de windows XP

Publicado por jordi (10 intervenciones) el 19/01/2004 17:42:21
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

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar