ISA Server 2004, ISA Server 2006 un Windows Essential Business Server 2008 bloķē pieprasījumi, kas ietver akceptēt kodēšanas HTTP galvenes lietojot starpniekserveri uz priekšu

Servisa pakotnes informācija

Lai novērstu šo problēmu, instalējiet ISA Server 2004 3. servisa pakotne (SP3) un pēc tam palaidiet Microsoft Visual Basic skriptu, kas ir minēta šajā sadaļā. Lai iegūtu papildinformāciju par ISA Server 2004 jaunākās servisa pakotnes iegūšanu, noklikšķiniet uz šī raksta numura un lasiet Microsoft zināšanu bāzes rakstu:

Kā iegūt jaunāko servisa pakotni ISA Server 2004 891024Pēc servisa pakotnes instalēšanas palaidiet šo skriptu, lai iespējotu jaunu konfigurācijas parametru. Šo jauno parametru var nosūtīt pieprasījumus, ja tiks atspējoti saspiešanas filtri iekļauti akceptēt kodēšanas HTTP galvenes uz priekšu starpniekservera gadījumā ISA Server. Lai to izdarītu, veiciet tālāk norādītās darbības. Microsoft piedāvā programmēšanas piemērus norāda tikai kā piemēru, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti. Taču viņi nemainīs šos piemērus, lai sniegtu skaidrākus, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.

1. Noklikšķiniet uz Sākt, norādiet uz Visas programmas, norādiet uz piederumiun pēc tam noklikšķiniet uz Notepad.

2. Ielīmējiet šādu kodu Notepad dokumentā.

   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. Saglabājiet failu Notepad kā "AccessRuleSendAcceptEncodingHeader.vbs".

4. Veiciet dubultklikšķi uz. vbs faila, lai palaistu skriptu.

Lai atspējotu jaunu konfigurācijas parametru, rīkojieties šādi:

1. Noklikšķiniet uz Sākt, norādiet uz Visas programmas, norādiet uz piederumiun pēc tam noklikšķiniet uz Notepad.

2. Ielīmējiet šādu kodu Notepad dokumentā.

   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. Saglabājiet failu Notepad kā "Disable_AccessRuleSendAcceptEncodingHeader.vbs".

4. Veiciet dubultklikšķi uz. vbs faila, lai palaistu skriptu.