17-08-15, 04:09 AM
السلام عليكم
اخواني كيف يمكني كشف نوع الانتي فيروس المسطب على الجهاز
و انا استخدمت هذا 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 ام ان هنالك طريقه اخرى لكشف الانتي فيروس المسطب ؟؟؟
وشكرااا لكم