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, 1683 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
Neuester Wissensbeitrag
Ä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 ...

Heiß diskutierte Inhalte
Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (18)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...

Grafikkarten & Monitore
Neue Graifkkarte - kein Bild (10)

Frage von bestelitt zum Thema Grafikkarten & Monitore ...

Exchange Server
gelöst Exchange 2013 - Kontakte aus CSV importieren (9)

Frage von hesper zum Thema Exchange Server ...