Private Sub Form_Load()
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")
Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct")
For Each objAntiVirusProduct In colItems
msg = msg & "CompanyName: " & objAntiVirusProduct.CompanyName & vbCrLf
msg = msg & "DisplayName: " & objAntiVirusProduct.DisplayName & vbCrLf
msg = msg & "InstanceGuid: " & objAntiVirusProduct.instanceGuid & vbCrLf
msg = msg & "OnAccessScanningEnabled: " & objAntiVirusProduct.onAccessScanningEnabled & vbCrLf
msg = msg & "ProductUptoDate: " & objAntiVirusProduct.productUptoDate & vbCrLf
msg = msg & "VersionNumber: " & objAntiVirusProduct.versionNumber & vbCrLf
msg = msg & vbCrLf
Next
MsgBox msg, vbInformation, "Info Antivirus"
Unload Me
End Sub