[الطالب]

سلام

جرب هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox("Antivirus: " & AntivirusInstalled)
    MsgBox("Firewall: " & FirewallInstalled)
End Sub

Private Function AntivirusInstalled() As String
    On Error Resume Next
    Dim s As New System.Text.StringBuilder
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter").ExecQuery("Select displayName From AntiVirusProduct")
        s.AppendLine(item.displayName)
    Next
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter2").ExecQuery("Select displayName From AntiVirusProduct")
        s.AppendLine(item.displayName)
    Next
    Return s.ToString
End Function

Private Function FirewallInstalled() As String
    On Error Resume Next
    Dim s As New System.Text.StringBuilder
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter").ExecQuery("Select displayName From FirewallProduct")
        s.AppendLine(item.displayName)
    Next
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter2").ExecQuery("Select displayName From FirewallProduct")
        s.AppendLine(item.displayName)
    Next
    Return s.ToString
End Function

موفقين