ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Internet Information Server 5.x Compression Scripts

Add a File Extension to the IIS Compression Scheme
List FTP Server Properties
List IIS Compression Schemes Information
List IIS Compression Scheme Information
Modify a Compression Schemes Metabase Property

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.


Add a File Extension to the IIS Compression Scheme


Adds the file extension hta to the GZip compression scheme in the IIS metabase. 
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

List FTP Server Properties


Lists the properties of an FTP server named MSFTPSVC/1.
On Error Resume Next

strComputer = "LocalHost"
Set objServer = GetObject("IIS://" & strComputer & "/MSFTPSVC/1")
 
Wscript.Echo "Access Flags" & objServer.AccessFlags
script.Echo "Connection Timeout: " & objServer.ConnectionTimeout
Wscript.Echo "Default Logon Domain: " & objServer.DefaultLogonDomain
Wscript.Echo "Allow Anonymous: " & objServer.AllowAnonymous
Wscript.Echo "Disable SOcket Pooling: " & _
    objServer.DisableSocketPooling
Wscript.Echo "Anonymous Only: " & objServer.AnonymousOnly
Wscript.Echo "Don't Log: " & objServer.DontLog
Wscript.Echo "Anonymous Password Synch: " & _
    objServer.AnonymousPasswordSync
Wscript.Echo "Exit Message: " & objServer.ExitMessage
Wscript.Echo "Anonymous User Name: " & objServer.AnonymousUserName
Wscript.Echo "FTP Directory Browse Show Long Date: " & _
    objServer.FtpDirBrowseShowLongDate
Wscript.Echo "Anonymous User Password: " & _
    objServer.AnonymousUserPass
For Each strMessage in objServer.GreetingMessage
    Wscript.Echo "Greeting Message: " & strMessage
Next
Wscript.Echo "Log Anonymous: " & objServer.LogAnonymous
Wscript.Echo "Log Ext File Flags: " & objServer.LogExtFileFlags
Wscript.Echo "Log File Directory: " & objServer.LogFileDirectory
Wscript.Echo "Log File Local Time Rollover: " & _
    objServer.LogFileLocaltimeRollover
Wscript.Echo "Log File Period: " & objServer.LogFilePeriod
Wscript.Echo "Log File Truncate Size: " & _
    objServer.LogFileTruncateSize
Wscript.Echo "Log Non-Anonymous: " & objServer.LogNonAnonymous
Wscript.Echo "Log ODBC Data Source: " & _
    objServer.LogOdbcDataSource
Wscript.Echo "Log ODBC Password: " & objServer.LogOdbcPassword
Wscript.Echo "Log ODBC Table Name: " & objServer.LogOdbcTableName
Wscript.Echo "Log ODNC User Name: " & objServer.LogOdbcUserName
Wscript.Echo "Log Plugin Clsid: " & objServer.LogPluginClsid
Wscript.Echo "Log Type: " & objServer.LogType  
Wscript.Echo "Maximum Client Message: " & _
    objServer.MaxClientsMessage
Wscript.Echo "Maximum Connections: " & objServer.MaxConnections
Wscript.Echo "Server Comment: " & objServer.ServerComment
Wscript.Echo "Maximum Endpoint Connections: " & _
    objServer.MaxEndpointConnections
Wscript.Echo "Server Listen backlog: " & _
    objServer.ServerListenBacklog
Wscript.Echo "MS-DOS Directory Output: " & _
    objServer.MSDOSDirOutput
Wscript.Echo "Server Listen Timeout: " & _
    objServer.ServerListenTimeout
Wscript.Echo "Realm: " & objServer.Realm
Wscript.Echo "Server Size: " & objServer.ServerSize
Wscript.Echo "Server Autostart: " & objServer.ServerAutoStart
Wscript.Echo "Server State: " & objServer.ServerState

List IIS Compression Schemes Information


Returns information about the compressions schemes on an IIS server. 
strComputer = "LocalHost"
Set objIIS = GetObject _
    ("IIS://" & strComputer & "/W3SVC/Filters/Compression/Parameters")
 
Wscript.Echo "Cache Control Header: " & objIIS.HcCacheControlHeader
Wscript.Echo "Compression Buffer Size: " & objIIS.HcCompressionBufferSize
Wscript.Echo "Compression Directory: " & objIIS.HcCompressionDirectory
Wscript.Echo "Do Disk Space Limiting: " & objIIS.HcDoDiskSpaceLimiting
Wscript.Echo "Do Dynamic Compression: " & objIIS.HcDoDynamicCompression
Wscript.Echo "Do On-Demand Compression: " & objIIS.HcDoOnDemandCompression
Wscript.Echo "Do Static Compression: " & objIIS.HcDoStaticCompression
Wscript.Echo "Expires Header: " & objIIS.HcExpiresHeader
Wscript.Echo "Files Deleted Per Disk Free: " &  _
    objIIS.HcFilesDeletedPerDiskFree
Wscript.Echo "I/O Buffer Size: " & objIIS.HcIoBufferSize
Wscript.Echo "Maximum Disk Space Usage: " & objIIS.HcMaxDiskSpaceUsage
Wscript.Echo "Maximum Queue Length: " & objIIS.HcMaxQueueLength
Wscript.Echo "Minimum File Size for Compression: " &  _
    objIIS.HcMinFileSizeForComp
Wscript.Echo "No Compression for HTTP 1.0: " &  _
    objIIS.HcNoCompressionForHttp10
Wscript.Echo "No Compression for Proxies: " &  _
    objIIS.HcNoCompressionForProxies
Wscript.Echo "No Compression for Range: " &  _
    objIIS.HcNoCompressionForRange
Wscript.Echo "Send Cache Headers: " & objIIS.HcSendCacheHeaders

List IIS Compression Scheme Information


Returns information about compression scheme configuration on an IIS server. 
On Error Resume Next
 
strComputer = "LocalHost"
Set colSchemes = GetObject _
    ("IIS://" & strComputer & "/W3SVC/Filters/Compression")
 
For Each objItem in colSchemes
    If objItem.Name <> "Parameters" Then
        wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Compression DLL: " & objItem.HcCompressionDll
        Wscript.Echo "Create Flags: " & objItem.HcCreateFlags
        Wscript.Echo "Do Dynamic Compression: " &  _
            objItem.HcDoDynamicCompression
        Wscript.Echo "Do Static Compression: " &  _
            objItem.HcDoStaticCompression
        Wscript.Echo "Do On-Demand Compression: " &  _
            objItem.HcDoOnDemandCompression
        Wscript.Echo "Dynamic Compression Level: " &  _
            objItem.HcDynamicCompressionLevel
        For Each strExtension in objItem.HcFileExtensions
            Wscript.Echo "File Extensions: " & strExtension
        Next
        Wscript.Echo "On-Demand Compression Level: " &  _
            objItem.HcOnDemandCompLevel
        Wscript.Echo "Priority: " & objItem.HcPriority
        For Each strExtension in objItem.HcScriptFileExtensions
            Wscript.Echo "Script File Extensions: " & strExtension
        Next
        Wscript.Echo
    End If
Next

Modify a Compression Schemes Metabase Property


Demonstration script that modifies a compression schemes property (HcSendCacheHeaders) in the IIS metabase. 
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & _
    "/W3SVC/Filters/Compression/Parameters")

objIIS.HcSendCacheHeaders = TRUE
objIIS.SetInfo