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, 1678 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
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

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

Frage von 10TechFlo64 zum Thema Backup ...

Verschlüsselung & Zertifikate
gelöst Symantec PGP Desktop - Emails unverschlüsselt speichern (3)

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

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...