ISA Server 2004, ISA Server 2006 a Windows Essential Business Server 2008 blokuje požiadavky zahrnúť hlavičky Accept-Encoding HTTP forward proxy používa

Informácie o balíku Service Pack

Ak chcete vyriešiť tento problém, nainštalovať ISA Server 2004 Service Pack 3 (SP3) a spustite skript jazyka Microsoft Visual Basic, uvedené v tejto časti. Ďalšie informácie o možnostiach získania najnovšieho balíka service pack pre ISA Server 2004, kliknite na nasledovné číslo článku publikovaného v databáze Microsoft Knowledge Base:

891024 ako získať najnovší balík service pack pre ISA Server 2004Po nainštalovaní balíka service pack, spustite nasledujúci skript umožní nový parameter konfigurácie. Tento nový parameter umožňuje ISA Server priame požiadavky, ktoré zahŕňajú hlavičke HTTP Accept-Encoding Ak kompresie filtre sú zakázané v prípade dopredu proxy. Chcete urobiť, postupujte nasledovne. Microsoft poskytuje príklady programovacieho iba, bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu. Ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.

1. Kliknite na tlačidlo Štart, ukážte na položku Všetky programy, príslušenstvoa kliknite na tlačidlo Poznámkový blok.

2. Prilepte nasledujúci kód do dokumentu programu Poznámkový blok.

   Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader"Const SE_VPS_VALUE = trueSub 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 IfEnd SubSub CheckError()    If Err.Number <> 0 Then        WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description        Err.Clear    End IfEnd SubSetValue

3. Súbor programu Poznámkový blok uložte ako "AccessRuleSendAcceptEncodingHeader.vbs."

4. Dvakrát kliknite na súbor .vbs spustite skript.

Vypnutie nový parameter konfigurácie, postupujte nasledovne:

1. Kliknite na tlačidlo Štart, ukážte na položku Všetky programy, príslušenstvoa kliknite na tlačidlo Poznámkový blok.

2. Prilepte nasledujúci kód do dokumentu programu Poznámkový blok.

   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. Súbor programu Poznámkový blok uložte ako "Disable_AccessRuleSendAcceptEncodingHeader.vbs."

4. Dvakrát kliknite na súbor .vbs spustite skript.