Leer clave de registro con wscript.shell

[50l3r]

Veran, necesito leer los valores de este lugar

hkcu\software\microsoft\windows\currentversion\run

beno, de este y de otros mas, la cosa que cuando quiero leer todos los valores que contiene tira este error

No se pudo abrir la clave de registro ..... para leerla

a que se debera? que hago mal vamos

Código (vb) [Seleccionar] Expandir

Private Function registro()
    Dim regedit As Object
    Dim claves As String
   
    Set regedit = CreateObject("Wscript.Shell")
   
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
   
    MsgBox claves
   
    Set regedit = Nothing
   
End Function


saludos

[seba123neo]

tenes que enumerarlas, podes con el metodo EnumKey de StdRegProv, eso es WMI, creo que con WSH no se puede enumerar...¿ igualmente porque no usas api's ? es lo mejor..

[50l3r]

ok entonces uso apis, muchas gracias ^^

[skapunky]

Yo personalmente lo hice con WMI. De todas formas:

Código (vb) [Seleccionar] Expandir

Private Function registro()
    Dim regedit As Object
    Dim claves As String

    Set regedit = CreateObject("Wscript.Shell")

    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")

    MsgBox claves

    Set regedit = Nothing

End Function

Deberías crear un array, para poder leer cada una de los valores y controlarlo con un FOR. Piensa que dentro la clave HCU.../Run exísten varias valores y tu idea no era mala pero solo serviria si existíera un solo valor.