تصحيح: ISA Server 2006 أو حالة حرية التعبير في طليعة عام 2010 لا تكتشفها إعادة تعيين TCP الاستجابة عند تمكين ضغط HTTP

معلومات تثبيت الإصلاح العاجل

لحل هذه المشكلة، اتبع الخطوات التالية:

1. تثبيت حزمة مجموعة الإصلاحات الجديدة الموضحة في مقالة قاعدة معارف Microsoft "(KB) التالية:

   وصف حزمة الإصلاحات الجديدة ISA Server 2006 980067 : 22 فبراير 2010
   
   

2. نسخ ولصق البرنامج النصي التالي في "المفكرة":

   Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"Const SE_VPS_NAME = "AllowPrematureClientTermination"
   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. حفظ الملف كملف البرنامج نصي ل Microsoft Visual Basic عن طريق إعطاء الملف ملحق اسم ملف.vbs. على سبيل المثال، حفظ الملف بالاسم التالي:
   

   EnableKB980066.vbs

4. انقر نقراً مزدوجاً فوق ملف.vbs لتشغيله.