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, 1687 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
Outlook & Mail
Symantec Enterprise Vault - max. anzahl an archivierten Mails löschen

Frage von DataJoe zum Thema Outlook & Mail ...

Verschlüsselung & Zertifikate
gelöst Verschlüsseltes Skript decodieren (23)

Frage von Luuke257 zum Thema Verschlüsselung & Zertifikate ...

Backup
gelöst Symantec Backup Exec 2015: Fehler beim Sichern der Exchange-Datenbanken (4)

Frage von 10TechFlo64 zum Thema Backup ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(8)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte