معرفة الانتي فيروس المسطب على الوندز

كود :

 Function GetAntiVirus(ByVal strsystem As String) As String

        Dim strcomputer As String = String.Empty

        Dim wmins As String = String.Empty

        Dim wmiquery As String = String.Empty

        Dim objwmiservice As Object

        Dim colitem As Object

        Dim objitem As Object

        Dim strb As New StringBuilder



        Try

            If strsystem = System.Environment.MachineName Then

                strcomputer = "*.*"

            Else

                strcomputer = strsystem



            End If

            wmins = "\root\securityCenter2"

            wmiquery = "Select * AntiVirusProduct"

            objwmiservice = GetObject("winmgmts:\\" & strcomputer & wmins)

            colitem = objwmiservice.Exequery(wmiquery)

            For Each objitem In colitem

                Try

                    strb.AppendLine(objitem.displayname.ToString)

                Catch ex As Exception



                End Try

            Next

        Catch ex As Exception

            strb.AppendLine("??")



        End Try

        Return strb.ToString



    End Function

كود :

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