''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'

' Copyright (c) Microsoft Corporation. All rights reserved.

' THIS CODE IS MADE AVAILABLE AS IS, WITHOUT WARRANTY OF ANY KIND. THE ENTIRE

' RISK OF THE USE OR THE RESULTS FROM THE USE OF THIS CODE REMAINS WITH THE

' USER. USE AND REDISTRIBUTION OF THIS CODE, WITH OR WITHOUT MODIFICATION, IS

' HEREBY PERMITTED.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' This script sets the order of the Web filters

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Sub setOrderWF

    ' Create the root object.
    Dim root  ' The FPCLib.FPC root object
    Set root = CreateObject("FPC.Root")


   'Declare the other objects that are needed.
    Dim array       ' An FPCArray object
    Dim Extensions ' An FPCExtensions
    Dim WebFilters' An FPCWebFilters 
    Dim WebFilter
    Dim FltrGuid
    Dim lcount,lIndex
    On Error Resume Next

	

    ' Get references to the array object and the network rules collection.
    Set array = root.GetContainingArray
    CheckError
    Set Extensions = array.Extensions 
    CheckError
    set WebFilters = Extensions.WebFilters
    CheckError
    WScript.Echo "Getting Link Translation filter"
    set WebFilter = WebFilters.item("{9DEEF135-75DB-4aab-B2AC-314FBC98EF14}")
    CheckError
    WScript.Echo "Set Link translation filter priority to Low"
    WebFilter.priority = 0
    CheckError
    WebFilters.Save
    CheckError
    WScript.Echo "Moving the cache compression filter to be last"
    WebFilters.movedown(6)
    CheckError
    WebFilters.movedown(7)
    CheckError
    WebFilters.Save
    CheckError
    WScript.Echo "Set Link translation filter priority back to Medium"
    set WebFilter = WebFilters.item("{9DEEF135-75DB-4aab-B2AC-314FBC98EF14}")
    WebFilter.priority = 1
    CheckError
    WebFilters.Save

end sub


Sub CheckError()
    If Err.Number <> 0 Then
        WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & 
Err.Description
        Exit sub
    End If
End Sub





'main
setOrderWF