Antivirenprogramm ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

    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