[VB6] Get info about AV & Firewall

Fire_mybb_import5998 · 04-09-2011, 12:33 PM

One of my sources collection, for whole website with sources PM me.

Code:
Public Function GetFWAV() As String
    On Error Resume Next
    Dim colItems As Object
    Dim objItem As Object
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\.\root\SecurityCenter")

    Set colItems = objWMIService.ExecQuery("Select * from FirewallProduct")

    Dim tmp As String, endt As String
    tmp = "-"
    For Each objItem In colItems
        tmp = objItem.CompanyName & " " & objItem.DisplayName & " (" & objItem.versionnumber & ")"
        'objItem.Enabled
    Next
    endt = tmp
    tmp = "-"
    Set colItems = objWMIService.ExecQuery("Select * from AntiVirusProduct")

    For Each objItem In colItems
       tmp = objItem.CompanyName & " " & objItem.DisplayName & " (" & objItem.versionnumber & ")"
       'objItem.OnAccessScanningEnabled 'Enabled ?
       'objItem.ProductUptoDate 'Updated ?
    Next
    GetFWAV = endt & "|" & tmp
End Function

I'm not author of this

Coder-san · 04-09-2011, 12:58 PM

WMI works in VB6? Awesome. Smile

Fire_mybb_import5998 · 04-09-2011, 01:03 PM

dunno, I've found this deeply in internet, but if You could check if this works it will be awesome! :thumbs: