Windows Security Center

The environment object can be used to manipulate environment variables.

Function GetHealth(Providers As WSC_SECURITY_PROVIDER)

Usage:

Sub Scense_Main()
    WSC_SECURITY_PROVIDER_FIREWALL = 1
    WSC_SECURITY_PROVIDER_AUTOUPDATE_SETTINGS = 2
    WSC_SECURITY_PROVIDER_ANTIVIRUS = 4
    WSC_SECURITY_PROVIDER_ANTISPYWARE = 8
    WSC_SECURITY_PROVIDER_INTERNET_SETTINGS = 16
    WSC_SECURITY_PROVIDER_USER_ACCOUNT_CONTROL = 32
    WSC_SECURITY_PROVIDER_SERVICE = 64
    
    'Test all providers at once
    WriteScenseLog ScenseWSC.GetHealth( _
        WSC_SECURITY_PROVIDER_FIREWALL + _
        WSC_SECURITY_PROVIDER_AUTOUPDATE_SETTINGS + _
        WSC_SECURITY_PROVIDER_ANTIVIRUS + _
        WSC_SECURITY_PROVIDER_ANTISPYWARE + _
        WSC_SECURITY_PROVIDER_INTERNET_SETTINGS + _
        WSC_SECURITY_PROVIDER_USER_ACCOUNT_CONTROL + _
        WSC_SECURITY_PROVIDER_SERVICE)
    
    'Or just one
    WriteScenseLog ScenseWSC.GetHealth(WSC_SECURITY_PROVIDER_INTERNET_SETTINGS)

End Sub