VBScript Code to List IIS Compression Scheme Setting Information

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

Example(s)

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:{authenticationLevel=pktPrivacy}\\" _
        & strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
    ("Select * from IIsCompressionSchemeSetting")
 
For Each objItem in colItems
    Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Hc Compression Dll: " & _
        objItem.HcCompressionDll
    Wscript.Echo "Hc Create Flags: " & objItem.HcCreateFlags
    Wscript.Echo "Hc Do Dynamic Compression: " & _
        objItem.HcDoDynamicCompression
    Wscript.Echo "Hc Do On-Demand Compression: " & _
        objItem.HcDoOnDemandCompression
    Wscript.Echo "Hc Do Static Compression: " & _
        objItem.HcDoStaticCompression
    Wscript.Echo "Hc Dynamic Compression Level: " & _
        objItem.HcDynamicCompressionLevel
    For Each strExtension in objItem.HcFileExtensions
        Wscript.Echo "Hc File Extensions: " & strExtension
    Next
    Wscript.Echo "Hc On-Demand Compression Level: " & _
        objItem.HcOnDemandCompLevel
    Wscript.Echo "Hc Priority: " & objItem.HcPriority
    For Each strExtension in objItem.HcScriptFileExtensions
        Wscript.Echo "Hc Script File Extensions: " & strExtension
    Next
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Setting ID: " & objItem.SettingID
Next