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?
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?