From 736c014d6e0aee59fbe43a06fabf222214076efa Mon Sep 17 00:00:00 2001
From: coelho-faminto <coelho@nostracasa.org>
Date: Mon, 20 Jul 2020 16:56:45 -0300
Subject: [PATCH] Added partial support to REG_FULL_RESOURCE_DESCRIPTOR. Full
 support is not possible because StdRegProv doesn't support
 REG_FULL_RESOURCE_DESCRIPTOR REG_TYPE

---
 vbs/regUtil.vbs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/vbs/regUtil.vbs b/vbs/regUtil.vbs
index f47386fea..3c65b3cb7 100644
--- a/vbs/regUtil.vbs
+++ b/vbs/regUtil.vbs
@@ -225,6 +225,8 @@ Function RenderType(intType)
 			RenderType = "REG_DWORD"
 		Case 7
 			RenderType = "REG_MULTI_SZ"
+		Case 9
+			RenderType = "REG_FULL_RESOURCE_DESCRIPTOR"
 		Case 11	
 			RenderType = "REG_QWORD"
 		Case Else
@@ -265,11 +267,16 @@ Function RenderValueByType(intType, varValue)
 
 		' REG_MULYI_SZ'
 		Case 7
-
 			RenderValueByType = RenderStringArray(varValue)
+
+		' REG_FULL_RESOURCE_DESCRIPTOR
+		Case 9
+			RenderValueByType = RenderByteArray(varValue)
+
 		' REG_QWORD
 		Case 11
 			RenderValueByType = varValue
+            
 		Case Else
 			' TODO: should report / throw an error here
 			WriteErr("invalid Registry Value Type " & intType)
@@ -314,6 +321,11 @@ Sub GetValueByType(constHive, strKey, strValueName, intType, outVarValue)
 		Case 7
 			GetMultiStringValue constHive, strKey, strValueName, outVarValue
 			Exit Sub
+
+		' REG_FULL_RESOURCE_DESCRIPTOR
+		Case 9
+			GetBinaryValue constHive, strKey, strValueName, outVarValue
+			Exit Sub
 			
 		' REG_QWORD
 		Case 11