Feedback

VB - Antivirenprogramm ermitteln

Veröffentlicht von am 31.12.2011
(0 Bewertungen)
GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Aufbau

In dieser Schulung lernen Sie fortgeschrittene Techniken im Bereich .Net C#. Dabei stehen neben den eigentlichen Techniken auch architektonische Aspekte im Mittelpunkt.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

    Function GetAV()
        Dim objSecurityCenter As Object, colAntiVirus As Object, objFileSystem As Object, CountAV As Integer, info As String = ""
        objSecurityCenter = GetObject("winmgmts:\\localhost\root\SecurityCenter2")
        colAntiVirus = objSecurityCenter.ExecQuery("SELECT * FROM AntiVirusProduct", "WQL", 0)
        objFileSystem = CreateObject("Scripting.fileSystemObject")
        CountAV = 0
        For Each objAntiVirus In colAntiVirus
            CountAV = CountAV + 1
            If CountAV > 1 Then
                info = info & ", " & objAntiVirus.displayName
            Else
                info = info & objAntiVirus.displayName
            End If
        Next
        Return info
    End Function
Abgelegt unter AV, Antivirus.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!