Определить наличие установленного антивируса - Visual Basic .NET

Формулировка задачи:

Доброго времени суток. Возникла задача определить наличие установленного антивируса на машине. антивирус может быть любой. проблема встала в методе определения. Нужен сам год, подскажите пожалуйста.?

Решение задачи: «Определить наличие установленного антивируса»

textual
                            Листинг программы 
                        

                             Dim myAVProduct As String = ""
        Dim searcher = New ManagementObjectSearcher("SELECT name from Win32_Product WHERE name like '%Symantec%' or name like '%Kaspersky%' or name like '%Eset%'")
        For Each instance In searcher.Get()
            myAVProduct &= instance.GetPropertyValue("Name").ToString() & vbNewLine
        Next
        MsgBox(myAVProduct)
                        