Escribir en registro de windows

[empardopo]

Buenas tardes, compañeros

por más que lo he intentado y buscado no consigo hacer lo que necesito.

Necesito crear una entrada en el registro Dword con un valor en hexadecimal; el código que he colocado ha sido el siguiente:

Código:

rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
valor = "00000010"
Set Objeto = CreateObject("wscript.shell")
Objeto.regwrite rama, valor

El problema es que esto me crea un valor en el registro de los que pone una ab en rojo y si hago doble clic sobre la entrada en el registro creada no me da la opción de seleccionar un valor entre decimal y hexadecimal; necesito que la entrada creada en el registro sea de las de color azul.

No sé si me he explicado bien.

¿Alguna ide por favor?

Muchas gracias y un saludo

[David]

Así:

Código vb:

Objeto.regWrite rama, 10, "REG_DWORD"
 

[empardopo]

Muchas gracias por responder, al final la solución que encontré tras seguir probando y probando fue la siguiente:

Código:

Set Objeto = CreateObject("Wscript.shell") 'Setear el Objeto
    rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive"
    valor = "08388608"
    Set Objeto = CreateObject("wscript.shell")
    'y grabamos la rama y el valor (2 parametros separados por coma)
    Objeto.regwrite rama, valor, ("REG_DWORD")
    Set Objeto = Nothing
    
    Set Objeto = CreateObject("Wscript.shell") 'Setear el Objeto
    rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
    valor = "00000000"
    Set Objeto = CreateObject("wscript.shell")
    Objeto.regwrite rama, valor, ("REG_DWORD")
    Set Objeto = Nothing

Realmente, lo que hice es traducir el valor hexadecimal que quería meter por el valor decimal aunque lo sigo metiendo como string con la variable valor.

Muchas gracias compañeros

Nota: Por cierto, y a quién le pueda interesar este código que he dejado sirve para negar el acceso a la unidad X:\ mapeada

[ErickSamael]

Comentas que esto es para negar acceso si en cambio yo quisiera ocultar una particion que seria lo que tengo que cambiar?

Saludos

[empardopo]

Creo que me he equivocado y debe funcionar; el cambio en el registro para NoViewOnDrive creo que no permite acceder y el cambio para NoDrives oculta la unidad en cuestión.

Los valores en decimal para ocultar las unidades son igualmente:
A: 1, B: 2, C: 4, D: 8, E: 16, F: 32, G: 64, H: 128, I: 256, J: 512, K: 1024, L: 2048, M: 4096, N: 8192, O: 16384, P: 32768, Q: 65536, R: 131072, S: 262144, T: 524288, U: 1048576, V: 2097152, W: 4194304, X: 8388608, Y: 16777216, Z: 33554432, ALL: 67108863

Por ejemplo, para ocultar la unidad A y la D, se deberían sumar los valores correspondientes a ambas unidades, es decir, el valor sería el 9.

Pruébalo y ya comentas si te ha funcionado.

Un saludo

[empardopo]

Bueno,

ya lo he probado y ha funcionado correctamente tanto la negación del acceso como la ocultación a la unidad mapeada.

Espero os sirva.

Un saludo