[YazanOtoum]

السلام عليكم

اخواني كيف يمكني كشف نوع الانتي فيروس المسطب على الجهاز 

و انا استخدمت هذا function ولكن استغربت انه لم ينفع مع مضاد فيروسات AVG :

كود :

 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

هل هناك خطأ في function ام ان هنالك طريقه اخرى لكشف الانتي فيروس المسطب ؟؟؟

وشكرااا لكم