IIS 5.x

Compression

Add a File Extension to the IIS Compression Scheme








' Add a File Extension to the IIS Compression Scheme


Const ADS_PROPERTY_UPDATE = 2
 
strComputer = "LocalHost"
Set objIIS = GetObject _
    ("IIS://" & strComputer & "/W3SVC/Filters/Compression/gzip")
arrExtensions = objIIS.HcFileExtensions
i = Ubound(arrExtensions)
i = i + 1
 
Redim Preserve arrExtensions(i)
arrExtensions(i) = "hta"
 
objIIS.PutEx ADS_PROPERTY_UPDATE, "HcFileExtensions", arrExtensions
objIIS.SetInfo



search for scripts

VbsEdit contains all these sample scripts!

Download Now!