Feedback

VB - Antivirenprogramm und Status ermitteln

Veröffentlicht von am 15.11.2007
(2 Bewertungen)
Mitunter benötigt man in seiner Anwendung informationen darüber, ob und welches Antivierenprogramm auf einem System eingesetzt ist.

Der nachfolgende Snippet ermittel diese Information und gibt Sie in einem String wieder aus.
GFU-Schulungen  [Anzeige]

C# Aufbaukurs

Sie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

'Da wir den Stringbuilder verwenden

Imports System.Text


Private Function GetAVInformation(ByVal strSystem As String) As String
        Dim strComputer As String = String.Empty
        Dim wmiNS As String = String.Empty
        Dim wmiQuery As String = String.Empty
        Dim objWMIService As Object
        Dim colItems As Object
        Dim objItem As Object
        Dim strSB As New StringBuilder

        Try
            'Wenn lokales System
            If strSystem = System.Environment.MachineName Then
                strComputer = "."


            Else
                strComputer = strSystem

            End If

            wmiNS = "\root\securityCenter"
            wmiQuery = "Select * from AntiVirusProduct"
            objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
            colItems = objWMIService.ExecQuery(wmiQuery)

            For Each objItem In colItems

                Try
                    strSB.AppendLine("Antivirus Company: " & vbTab & vbTab & objItem.companyName.ToString)
                Catch ex As Exception
                    strSB.AppendLine("Antivirus Company: " & vbTab & vbTab & "Nicht ermittelbar")
                End Try

                Try
                    strSB.AppendLine("Displayname:" & vbTab & vbTab & vbTab & objItem.displayName.ToString)
                Catch ex As Exception
                    strSB.AppendLine("Displayname:" & vbTab & vbTab & vbTab & "Nicht ermittelbar")
                End Try

                Try
                    strSB.AppendLine("On AccessScanning:" & vbTab & vbTab & objItem.onAccessScanningEnabled.ToString)
                Catch ex As Exception
                    strSB.AppendLine("On AccessScanning:" & vbTab & vbTab & "Status nicht ermittelbar")
                End Try

                Try
                    strSB.AppendLine("Path To Enable On Access UI:" & vbTab & objItem.pathToEnableOnAccessUI.ToString)
                Catch ex As Exception
                    strSB.AppendLine("Path To Enable On Access UI:" & "Pfad nicht auslesbar")
                End Try

                Try
                    strSB.AppendLine("Path To Update UI:" & vbTab & objItem.pathToUpdateUI.ToString)
                Catch ex As Exception
                    strSB.AppendLine("Path To Update UI:" & vbTab & "Nicht ermittelbar")
                End Try

                Try
                    If objItem.productUptoDate.ToString.ToLower = "true" Then
                        strSB.AppendLine("AV Definitions Up To Date:" & vbTab & vbTab & "Pattern sind aktuell")
                    Else
                        strSB.AppendLine("AV Definitions Up To Date:" & vbTab & vbTab & "Pattern sind veraltet")
                    End If

                Catch ex As Exception
                    strSB.AppendLine("AV Definitions Up To Date:" & vbTab & vbTab & "Status nicht ermittelbar")
                End Try

                Try
                    strSB.AppendLine("AV Version:" & vbTab & vbTab & vbTab & objItem.versionNumber.ToString)
                Catch ex As Exception
                    strSB.AppendLine("AV Version:" & vbTab & vbTab & vbTab & "Version nicht feststellbar")
                End Try


            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try


        Return strSB.ToString



End Function
Abgelegt unter Virenscanner, AV.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!