Antivirus aanwezig?

  • Onderwerp starter Onderwerp starter joke1
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

joke1

Gebruiker
Lid geworden
24 mei 2006
Berichten
159
Ik probeer te ontdekken welke antivirus geïnstalleerd is op een pc maar dat lukt niet. Ik gebruik deze code:

Private Sub btnAlles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlles.Click
Dim objWMIService As Object
Dim objItems As Object
Dim avp As Object
Dim strComputer As String = "."
Dim msg As String = "Geen AntiVirus gevonden"
objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\SecurityCenter")
objItems = objWMIService.ExecQuery("Select * from AntiVirusProduct")
For Each avp In objItems
msg = "displayName: " & avp.displayName
Next
ListBox1.Items.Add(msg)
End Sub


Wat is hier mis mee?
 
Is het niet veel makkelijker om via de control panel even naar het tabje te gaan met de geïnstalleerde programma's en daar te kijken welke virusscanner geïnstalleerd is?
 
Dylan bedankt voor je reactie.

Mijn vraag is niet voor niks gesteld onder PROGRAMEREN. Via die zelfde weg kun je ook het versienummer te weten komen en ook of het product up-to-date is. Dat zie ik in het configuratiescherm toch allemaal niet staan. Of als er een Antivirus programma komt met een totaal andere naam, dan weet je dat niet met uit de lijst met geïnstalleerde programms's niet en met de metode die ik voorstel wel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan