Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Symantec ScanEngineVersion decodieren

Frage Entwicklung VB for Applications

Mitglied: djbazo

djbazo (Level 1) - Jetzt verbinden

14.04.2010, aktualisiert 15.04.2010, 1689 Aufrufe

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

01.
 
02.
DIM fso, wshell, objWMIService, RegPath, Umrechnung 
03.
Set wshell = CreateObject("WScript.Shell") 
04.
Set fso = CreateObject("Scripting.FileSystemObject") 
05.
 
06.
DIM varVirEngine, varArrVirEngineRegValue, varStrVirEngineRegValue, varVirEngineDat, varVirEngineDat1, varVirEngineDat2, varVirEngineDat3, varVirEngineDat4 
07.
 
08.
 
09.
RegPath = "HKLM\software\Symantec\Symantec Endpoint Protection\AV" 
10.
 
11.
Umrechnung = wshell.RegRead(RegPath & "\ScanEngineVersion") 
12.
 
13.
msgbox Umrechnung 'zB  1526857994 
14.
 
15.
varArrVirEngineRegValue = Hex(Umrechnung) 
16.
 
17.
msgbox varArrVirEngineRegValue 'zB 5b02010a 
18.
	 
19.
	varStrVirEngineRegValue = varStrPad(varArrVirEngineRegValue(0), 2, "0") & _ 
20.
	varStrPad(varArrVirEngineRegValue(1), 2, "0") & _ 
21.
	varStrPad(varArrVirEngineRegValue(2), 2, "0") & _ 
22.
	varStrPad(varArrVirEngineRegValue(3), 2, "0") 
23.
	 
24.
	varVirEngineDat1 = varArrVirEngineRegValue(0) 
25.
	varVirEngineDat2 = varArrVirEngineRegValue(1) 
26.
	varVirEngineDat3 = varArrVirEngineRegValue(2) 
27.
	varVirEngineDat4 = varArrVirEngineRegValue(3) 
28.
 
29.
 
30.
varVirEngineDat = varVirEngineDat3 &"." & varVirEngineDat2 &"." & varVirEngineDat1 & "." & varVirEngineDat4 
31.
	 
32.
'================================================================================================================== 
33.
Private Function varStrPad(Unpadded, Length, Padding) 
34.
	varStrPad = String((Length-Len(Unpadded)), Padding) & Unpadded 
35.
End Function 
36.
 
37.
msgbox "EngineVersion: " & varVirEngineDat 
38.
 
Vielen Dank schonmal

Grüße
bazo
Ähnliche Inhalte
Monitoring
gelöst Verschlüsselten Traffic nachträglich decodieren (3)

Frage von Mattismyo zum Thema Monitoring ...

Windows Server
Symantec BackUp Exec: Datenbank nicht bereitgestellt: (6)

Frage von Dorian zum Thema Windows Server ...

Verschlüsselung & Zertifikate
Chrome soll ab sofort Zertifikate von Symantec herabstufen (2)

Link von PPR-Dev zum Thema Verschlüsselung & Zertifikate ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
MS: Update-Server-Adressen OHNE Wildcards (16)

Frage von mrserious73 zum Thema Windows Update ...

Multimedia & Zubehör
Laptop per HDMI an TV - einer geht, einer nicht (10)

Frage von dreizehneinhalb zum Thema Multimedia & Zubehör ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (10)

Frage von Matsushita zum Thema Microsoft Office ...