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
Vielen Dank schonmal
Grüße
bazo
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
Visual Basic-Quellcode
- 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
Vielen Dank schonmal
Grüße
bazo