Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/08/2009, 01:07
Avatar de empardopo
empardopo
 
Fecha de Ingreso: abril-2004
Mensajes: 73
Antigüedad: 20 años
Puntos: 0
Respuesta: Escribir en registro de windows

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