Wie bekomme ich die installierte Antivirus-Software und die Firewall programmgesteuert?

Question

Wie kann ich Informationen über die Antivirus-Software und Firewall-Software erhalten, die auf einem Windows-Computer installiert ist?

Answer 1

Sie können ManagementObjectSearcher verwenden, um diese Informationen abzurufen.

Public Function GetAntivirus() As String 
    Try 
     Dim data As String = String.Empty 
     For Each firewall As ManagementObject In New ManagementObjectSearcher("root\SecurityCenter" & IIf(My.Computer.Info.OSFullName.Contains("XP"), "", "2").ToString, "SELECT * FROM AntiVirusProduct").Get 
      data &= firewall("displayName").ToString 
     Next 
     If Not data = String.Empty Then 
      Return data 
     Else 
      Return "No Antivirus" 
     End If 

    Catch 
     Return "No Antivirus" 
    End Try 

End Function 

Public Function GetFirewall() As String 
    Try 

      Dim data As String = String.Empty 
      For Each firewall As ManagementObject In New ManagementObjectSearcher("root\SecurityCenter" & IIf(My.Computer.Info.OSFullName.Contains("XP"), "", "2").ToString, "SELECT * FROM FirewallProduct").Get 
       Data &= firewall("displayName").ToString 
      Next 
     If Not data = String.Empty Then 
      Return data 
     Else 
      Return "No Firewall" 
     End If 
     Catch 
      Return "No Firewall" 
     End Try 

End Function