' List IIS Compression Scheme Setting Information


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
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft