[SOLUCIONADO] VBScript (WSH): ¿Como leer un valor binario (hexadecimal) del registro?

[BenjiRS]

Buenos dias Gente,

Os explico:

Quiero leer del Registro la firma predeterminado del Microsoft Outlook.

En el registro se encuentra guardado en HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A001 04B2A6676\00000002\New Signature.

El problema es que esta guardado de forma REG_BINARY y queria convertirlo a un STRING legible.

La funcion que tengo hecha es la siguiente, pero que no funciona.

Código:

Set Shell = CreateObject("WScript.Shell")

Function Hex2String(c)
	Dim a, i, s, x, y, z
		a = Split(c,"00")
		For i = 0 To UBound(a) 
		x = Left(a(i),1)

		y = Right(a(i),1)
		z = 16*x+InStr("123456789ABCDEF",y)
		s = s & Chr(z)
	Next
	Hex2String = s
End Function


arr  = Shell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000002\New Signature")


For i = LBound(arr) To UBound(arr)
	c = c & Hex(arr(i))
Next
Wscript.Echo(c)
z = Hex2String(c)
Wscript.Echo z

¿Podeis ayudarme?

Gracias de antemano

Un saludo
Benji

[BenjiRS]

Ya encontre la solución.

Gracias!

Código:

Set Shell = CreateObject("WScript.Shell")

arrValues  = Shell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000002\New Signature")

For intIndex = LBound(arrValues) To UBound(arrValues) Step 2
     varValue = varValue & Chr(arrValues(intIndex))
Next
arrValues = split(varValue, ";")
For intIndex = LBound(arrValues) To UBound(arrValues)
    Wscript.Echo arrValues(intIndex)
Next