Después del comentario de Jack en mi última entrada sobre la lectura/escritura del registro de Windows usando VBScript, me puse a investigar como se podían introducir valores binarios en una clave.
Si tuvieramos que introducir un valor binario con formato corto usaríamos simplemente la instrucción RegWrite:
WSHShell.RegWrite("\HKey\KeyTest\", 0x1, "REG BINARY")
Pero, tras consultar unas cuantas páginas especializadas, he descubierto que no existe una forma automática de realizar este proceso para valores con formato largo [p.e: 00 00 10 01]. La única solución posible que tenemos que usar se basa en generar una archivo temporal con la información a grabar e importarlo en el registro [sí, es muy cutre].
Os presento las funciones necesarias para escribir y leer valores binarios en las claves del registro de Windows:
Procedimiento para Escribir en el Registro un Valor Binario
Visual Basic:
-
Sub RegBinWrite (key, value, data)
-
-
Dim st_TEMPFILE
-
st_TEMPFILE = “wBin.reg”
-
-
Dim oFS
-
Dim txtStream
-
Dim WshShell
-
Dim valString
-
-
key = ”[“ & key & ”]”
-
-
If value <> ”@” then
-
value = chr(34) & value & chr(34)
-
End if
-
-
valString = value & ”=” & data
-
-
Set oFS = CreateObject(“Scripting.FileSystemObject”)
-
Set txtStream = oFS.CreateTextFile(st_TEMPFILE,True)
-
txtStream.WriteLine(“REGEDIT4”)
-
txtStream.WriteLine(key)
-
txtStream.WriteLine(valString)
-
txtStream.Close
-
-
Set WshShell = CreateObject(“Wscript.Shell”)
-
WshShell.Run “regedit /s “ & st_TEMPFILE, 1, True
-
Set WshShell = Nothing
-
-
oFS.DeleteFile st_TEMPFILE
-
Set oFS = Nothing
-
-
End Sub
Para realizar el proceso haríamos una llamada tal que así:
RegBinWrite "HKEY_CLASSES_ROOT\.000HNK", "Prueba", "hex:00,00,01,00"
Y si quisieramos que la clave binaria sea la predeterminada, usaríamos el caracter @:
RegBinWrite "HKEY_CLASSES_ROOT\.000HNK", "@", "hex:00,00,01,00"
Función para Leer un Valor Binario del Registro
Visual Basic:
-
Function stRegBinary (RegBinaryArray)
-
-
Dim item, st
-
-
If Not isarray(RegBinaryArray) Then
-
stRegBinary = ””
-
Else
-
For Each item In RegBinaryArray
-
st= st & CStr(Right(“00” & HEX(item),2)) & ” “
-
Next
-
stRegBinary = Trim(st)
-
End If
-
-
End Function
Y para obtener el valor usaríamos la función del siguiente modo:
Set oReg = CreateObject("Wscript.Shell")
strClave = oReg.RegRead("HKEY_CLASSES_ROOT\.000HNK\Prueba")
MsgBox stRegBinary(strClave)
Tras buscar información para mi entrada anterior, voy a escribir una breve entrada con lo necesario para poder leer y editar el registro de Windows mediante VBScript.
Los tres objetos que vamos a usar son RegRead, RegWrite y RegDelete.
En relación a la sintaxis a usar para la ruta del registro que queremos modificar tenemos que tener en cuenta:
Podemos abreviar las ramas del registro:
- HKEY_CURRENT_USER > HKCU
- HKEY_LOCAL_MACHINE > HKLM
- HKEY_CLASSES_ROOT > HKCR
- HKEY_USERS > HKCU > HKEY_USERS
- HKEY_CURRENT_CONFIG > HKEY_CURRENT_CONFIG
Dependiendo de si terminamos la ruta con o sin barra invertida “" estaremos referenciando a la rama (o su valor por defecto) o al nombre de un valor:
- “HKCU\Control Panel\Desktop" se referirá a la rama “Desktop” o su valor por defecto.
- “HKCU\Control Panel\Desktop\Wallpaper” se referirá al valor de la variable “Wallpaper” dentro de la rama “Desktop”
También conviene repasar los distintos tipos de datos que puede contener el registro:
- REG_SZ: una cadena de tipo String
- REG_DWORD: un valor numérico de tipo entero
- REG_BINARY: un valor de tipo binario
- REG_EXPAND_SZ: una cadena de tipo string
- REG_MULTI_SZ: una matriz de cadenas
Para probar cualquiera de los ejemplos siguientes, puedes crear un nuevo archivo con extensión .vb [p.e: pruebas_registro.vb] y abrirlo con el Bloc de notas para copiar el contenido.
Leer datos del registro:
Vamos a ver un ejemplo para recuperar la ruta de la imagen que tenemos como escritorio:
Visual Basic:
-
‘Definimos y creamos el objeto que usaremos para trabajar con el registro:
-
Dim oReg As Object
-
Set oReg = CreateObject(“Wscript.Shell”)
-
-
‘Definimos las variables necesarias
-
Dim strClave As String
-
-
‘Guardamos en la variable el valor de la clave
-
strClave = oReg.RegRead(“HKCU\Control Panel\Desktop\Wallpaper”)
-
-
‘Mostramos en un mensaje el valor de la clave
-
MsgBox strClave
-
-
‘Destruimos la variable de objeto
-
Set oReg = Nothing
Eliminar datos del registro:
Si quisieramos eliminar esa clave del registro, sería tan sencillo como pasar la ruta completa como parámetro. Te recomiendo hacer una copia de seguridad de la rama del registro en la que vayas a realizar pruebas antes de ponerte a ello.
Visual Basic:
-
‘Definimos y creamos el objeto que usaremos para trabajar con el registro:
-
Dim oReg As Object
-
Set oReg = CreateObject(“Wscript.Shell”)
-
-
‘Eliminamos la clave del registro
-
oReg.RegDelete(“HKCU\Control Panel\Desktop\Wallpaper”)
-
-
‘Destruimos la variable de objeto
-
Set oReg = Nothing
Crear y modificar datos del registro:
A la hora de escribir claves en el registro tenemos que tener en cuenta el tipo de dato que vamos a almacenar.
Como ejemplo, cambiaremos la ruta de la imagen del escritorio definida:
Visual Basic:
-
‘Definimos y creamos el objeto que usaremos para trabajar con el registro:
-
Dim oReg As Object
-
Set oReg = CreateObject(“Wscript.Shell”)
-
-
‘Definimos las variables necesarias
-
Dim strRuta As String
-
strRuta = “C:\fondo.jpg”
-
-
‘Escribimos el nuevo valor de la clave
-
oReg.RegWrite “HKCU\Control Panel\Desktop\Wallpaper”, strRuta, “REG_SZ”
-
-
‘Destruimos la variable de objeto
-
Set oReg = Nothing
MSDN Library
Editar el Registro de Windows con VBScript - Ejemplos
Tam: 1,1 Kb
Con los siguientes archivos podrás disponer de las acciones “Copiar a…” y “Mover a…” en el menú contextual que aparece al pulsar con el botón derecho del ratón sobre un fichero o carpeta.
Solo tienes que descargar el archivo, descomprimirlo y hacer doble click en los archivos de registro, aceptando el mensaje de confirmación. [Probado en Windows XP]
Copiar y Mover a… en Menú Contextual
Ver: 1.0 Tam: 620 Bytes
Hola, soy Marcos Esperón, técnico superior de desarrollo de aplicaciones informáticas. Escribo acerca de todo lo relacionado con la informática y la tecnología - Además tengo otros hobbies como el desarrollo web, la fotografía y los gadgets. Puedes saber más de mi en la página de 
