Symantec ScanEngineVersion decodieren

Symantec ScanEngineVersion Registry Werte Auslesen, umcodieren und in einer Textdatei speichern

Hallo zusammen,

bin ein Programmier - Newbie daher hier die Frage ob mir jemand diesbezüglich weiterhelfen kann oder es ggf. schon gelöst hat.
Ich habe Symantec Endpoint Protection installiert und möchte nun am Client aus der Registry verschiedene Dinge auslesen wie zB

HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Symantec Endpoint Protection\AV
-> ScanEngineVersion

Man kann dies ja nun in VBS sicherlich aufdröseln damit mir die Engine Version richtig angezeigt (oder in eine Log geschrieben) wird, die Frage ist für mich leider nur - wie?

Ich habe hier schonmal was ausprobiert bin, komme jedoch immer auf einen Fehler

DIM fso, wshell, objWMIService, RegPath, Umrechnung
Set wshell = CreateObject("WScript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  

DIM varVirEngine, varArrVirEngineRegValue, varStrVirEngineRegValue, varVirEngineDat, varVirEngineDat1, varVirEngineDat2, varVirEngineDat3, varVirEngineDat4


RegPath = "HKLM\software\Symantec\Symantec Endpoint Protection\AV"  

Umrechnung = wshell.RegRead(RegPath & "\ScanEngineVersion")  

msgbox Umrechnung 'zB  1526857994  

varArrVirEngineRegValue = Hex(Umrechnung)

msgbox varArrVirEngineRegValue 'zB 5b02010a  
	
	varStrVirEngineRegValue = varStrPad(varArrVirEngineRegValue(0), 2, "0") & _  
	varStrPad(varArrVirEngineRegValue(1), 2, "0") & _  
	varStrPad(varArrVirEngineRegValue(2), 2, "0") & _  
	varStrPad(varArrVirEngineRegValue(3), 2, "0")  
	
	varVirEngineDat1 = varArrVirEngineRegValue(0)
	varVirEngineDat2 = varArrVirEngineRegValue(1)
	varVirEngineDat3 = varArrVirEngineRegValue(2)
	varVirEngineDat4 = varArrVirEngineRegValue(3)


varVirEngineDat = varVirEngineDat3 &"." & varVirEngineDat2 &"." & varVirEngineDat1 & "." & varVirEngineDat4  
	
'==================================================================================================================  
Private Function varStrPad(Unpadded, Length, Padding)
	varStrPad = String((Length-Len(Unpadded)), Padding) & Unpadded
End Function

msgbox "EngineVersion: " & varVirEngineDat  