Az ISA Server 2004, az ISA Server 2006 vagy a Windows Essential Business Server 2008 blokkolja azokat a kéréseket, amelyek tartalmazzák a Accept-Encoding HTTP-fejlécet továbbítási proxy használata esetén

Szervizcsomag adatai

A probléma megoldásához telepítse az ISA Server 2004 Service Pack 3 (SP3) csomagot, majd futtassa az ebben a szakaszban említett Microsoft Visual Basic szkriptet.

A szervizcsomag telepítése után futtassa a következő szkriptet egy új konfigurációs paraméter engedélyezéséhez. Ez az új paraméter lehetővé teszi, hogy az ISA-kiszolgáló továbbítsa a Accept-Encoding HTTP-fejlécet tartalmazó kéréseket, ha a tömörítési szűrők le vannak tiltva egy továbbítási proxy forgatókönyvében. Ehhez hajtsa végre a következő lépéseket:

A Microsoft csak illusztrációkhoz kínál programozási példákat, kifejezett vagy hallgatólagos garancia nélkül. Ez magában foglalja, de nem kizárólagosan az egy adott célra való eladhatóságra vagy alkalmasságra vonatkozó vélelmezett garanciákat. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás működését. Azonban nem módosítják ezeket a példákat, hogy további funkciókat biztosítsanak, vagy eljárásokat építsenek ki az adott követelményeknek megfelelően.

1. Kattintson a Start gombra, mutasson a Minden program pontra, mutasson a Kellékek pontra, majd kattintson a Jegyzettömb elemre.

2. Illessze be az alábbi kódot a Jegyzettömb dokumentumba.

   Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"
   Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader"
   Const SE_VPS_VALUE = true
   
   Sub SetValue()
   
       ' Create the root obect.
       Dim root  ' The FPCLib.FPC root object
       Set root = CreateObject("FPC.Root")
   
       'Declare the other objects needed.
       Dim array       ' An FPCArray object
       Dim VendorSets  ' An FPCVendorParametersSets collection
       Dim VendorSet   ' An FPCVendorParametersSet object
   
       ' Get references to the array object
       ' and the network rules collection.
       Set array = root.GetContainingArray
       Set VendorSets = array.VendorParametersSets
   
       On Error Resume Next
       Set VendorSet = VendorSets.Item( SE_VPS_GUID )
   
       If Err.Number <> 0 Then
           Err.Clear
   
           ' Add the item
           Set VendorSet = VendorSets.Add( SE_VPS_GUID )
           CheckError
           WScript.Echo "New VendorSet added... " & VendorSet.Name
   
       Else
           WScript.Echo "Existing VendorSet found... value- " &  VendorSet.Value(SE_VPS_NAME)
       End If
   
       if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE Then
   
           Err.Clear
           VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE
   
           If Err.Number <> 0 Then
               CheckError
           Else
               VendorSets.Save false, true
               CheckError
   
               If Err.Number = 0 Then
                   WScript.Echo "Done with " & SE_VPS_NAME & ", saved!"
               End If
           End If
       Else
           WScript.Echo "Done with " & SE_VPS_NAME & ", no change!"
       End If
   
   End Sub
   
   Sub CheckError()
   
       If Err.Number <> 0 Then
           WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
           Err.Clear
       End If
   
   End Sub
   
   SetValue
   

3. Mentse a Jegyzettömbfájlt "AccessRuleSendAcceptEncodingHeader.vbs" néven.

4. Kattintson duplán a .vbs fájlra a szkript futtatásához.

Az új konfigurációs paraméter letiltásához kövesse az alábbi lépéseket:

1. Kattintson a Start gombra, mutasson a Minden program pontra, mutasson a Kellékek pontra, majd kattintson a Jegyzettömb elemre.

2. Illessze be az alábbi kódot a Jegyzettömb dokumentumba.

   Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}" 
   Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader" 
   Const SE_VPS_VALUE = false 
   
   Sub SetValue() 
   
        ' Create the root obect. 
        Dim root ' The FPCLib.FPC root object 
        Set root = CreateObject("FPC.Root") 
   
        'Declare the other objects needed. 
        Dim array ' An FPCArray object 
        Dim VendorSets ' An FPCVendorParametersSets collection 
        Dim VendorSet   ' An FPCVendorParametersSet object 
   
        ' Get references to the array object 
        Set array = root.GetContainingArray 
        Set VendorSets = array.VendorParametersSets 
   
        On Error Resume Next 
        Set VendorSet = VendorSets.Item( SE_VPS_GUID ) 
   
        If Err.Number <> 0 Then 
             Err.Clear 
   
             ' Add the item 
             Set VendorSet = VendorSets.Add( SE_VPS_GUID ) 
             CheckError 
             WScript.Echo "New VendorSet added... " & VendorSet.Name 
   
        Else 
             WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SE_VPS_NAME) 
        End If 
   
        if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE 
   
             Then Err.Clear VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE 
   
             If Err.Number <> 0 Then 
                   CheckError 
             Else 
                   VendorSets.Save false, true 
                   CheckError 
   
                   If Err.Number = 0 Then 
                        WScript.Echo "Done with " & SE_VPS_NAME & ", saved!" 
                   End If 
             End If 
   
        Else 
             WScript.Echo "Done with " & SE_VPS_NAME & ", no change!" 
   
        End If 
   
   End Sub 
   
   Sub CheckError() 
   
        If Err.Number <> 0 Then 
             WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description Err.Clear 
        End If 
   End Sub 
   
   SetValue
   

3. Mentse a Jegyzettömbfájlt "Disable_AccessRuleSendAcceptEncodingHeader.vbs" néven.

4. Kattintson duplán a .vbs fájlra a szkript futtatásához.