Get Antivirus List VB6 Code

Code:

Public Function AntiVirusess() As String
On Error Resume Next
Dim strComputer As String
Dim objWMIService As Object
Dim colProcesses As Object
Dim objProcess

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\.\root\SecurityCenter")
Set colProcesses = objWMIService.ExecQuery("Select * From AntiVirusProduct")

For Each objProcess In colProcesses
    AntiVirusess = AntiVirusess & objProcess.DisplayName & Chr(0) & objProcess.VersionNumber & Chr(0) & objProcess.CompanyName & Chr(255)
Next

Set objWMIService = Nothing
Set colProcesses = Nothing
Set objProcess = Nothing

End Function