Symantec ScanEngineVersion aus registry decodieren

  • VBScript

    Symantec ScanEngineVersion aus registry decodieren

    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

    Visual Basic-Quellcode

    1. DIM fso, wshell, objWMIService, RegPath, Umrechnung
    2. Set wshell = CreateObject("WScript.Shell")
    3. Set fso = CreateObject("Scripting.FileSystemObject")
    5. DIM varVirEngine, varArrVirEngineRegValue, varStrVirEngineRegValue, varVirEngineDat, varVirEngineDat1, varVirEngineDat2, varVirEngineDat3, varVirEngineDat4
    8. RegPath = "HKLM\software\Symantec\Symantec Endpoint Protection\AV"
    10. Umrechnung = wshell.RegRead(RegPath & "\ScanEngineVersion")
    12. msgbox Umrechnung 'zB 1526857994
    14. varArrVirEngineRegValue = Hex(Umrechnung)
    16. msgbox varArrVirEngineRegValue 'zB 5b02010a
    18. varStrVirEngineRegValue = varStrPad(varArrVirEngineRegValue(0), 2, "0") & _
    19. varStrPad(varArrVirEngineRegValue(1), 2, "0") & _
    20. varStrPad(varArrVirEngineRegValue(2), 2, "0") & _
    21. varStrPad(varArrVirEngineRegValue(3), 2, "0")
    23. varVirEngineDat1 = varArrVirEngineRegValue(0)
    24. varVirEngineDat2 = varArrVirEngineRegValue(1)
    25. varVirEngineDat3 = varArrVirEngineRegValue(2)
    26. varVirEngineDat4 = varArrVirEngineRegValue(3)
    29. varVirEngineDat = varVirEngineDat3 &"." & varVirEngineDat2 &"." & varVirEngineDat1 & "." & varVirEngineDat4
    31. '==================================================================================================================
    32. Private Function varStrPad(Unpadded, Length, Padding)
    33. varStrPad = String((Length-Len(Unpadded)), Padding) & Unpadded
    34. End Function
    36. msgbox "EngineVersion: " & varVirEngineDat


    Vielen Dank schonmal

    Grüße
    bazo

Facebook