Error message when you send an HTTP TRACE command to a Web server that is published by an ISA Server 2004 SP2-based computer: "HTTP 401 Unauthorized" (914532)

WORKAROUND

1. Paste the following code into a text editor such as Notepad:

   -----------------
   
   ' This script adds a new VendorParametersSets under the array root.
   ' add a new VendorParametersSet and add a value called "AllowTRACEForPublishing" set to 1.
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
   Sub AddAllowTRACEForPublishing()
   
       ' 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( "{143F5698-103B-12D4-FF34-1F34767DEabc}" )
   
       If Err.Number <> 0 Then
           Err.Clear
   
           ' Add the item
           Set VendorSet = VendorSets.Add( "{143F5698-103B-12D4-FF34-1F34767DEabc}" )
           CheckError
           WScript.Echo "New VendorSet added... " & VendorSet.Name
   
       Else
           WScript.Echo "Existing VendorSet found... value- " &  VendorSet.Value("AllowTRACEForPublishing")
       End If
   
       if VendorSet.Value("AllowTRACEForPublishing") <> 1 Then
   
           Err.Clear
           VendorSet.Value("AllowTRACEForPublishing") = 1
   
           If Err.Number <> 0 Then
               CheckError
           Else
               VendorSets.Save false, true
               CheckError
   
               If Err.Number = 0 Then
                   WScript.Echo "Done, saved!"
               End If
           End If
       Else
           WScript.Echo "Done, 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
   
   AddAllowTRACEForPublishing
   
   ==============================
   

2. Save the file by using the following file name: "AllowISATrace.vbs."
3. Type the following command at a command prompt to run the script:

   cscript.exe AllowISATrace.vbs

   Note You must run this script from the same location at which you saved the script in step 2.