修补: 不 Forefront TMG 2010 日志中记录的完整 URL 请求的客户端

文章翻译 文章翻译
文章编号: 980723 - 查看本文应用于的产品
展开全部 | 关闭全部

症状

时 Microsoft 防火墙客户端发出请求的 URL,Microsoft Forefront 威胁管理网关 (TMG) 2010年日志显示仅 IP 地址的客户端请求的网站。 预期的行为是完整的 URL 请求的客户端登录 Forefront TMG 2010

原因

会发生此问题,因为该问题是默认行为和网络安全和加速服务器 (ISA) 的早期版本的 Forefront TMG 2010

解决方案

Microsoft 提供编程示例只用于说明,没有任何明示或暗示的担保。 这包括,但不限于对适销性或特定用途适用性的暗示的担保。 本文假定您熟悉与正在演示了的编程语言以及用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释某个特定的过程的功能,但他们不会修改这些示例以提供附加的功能或构建过程以满足 特定要求。

要解决此问题,请按照下列步骤:
  1. 安装 Forefront 威胁管理网关 2010 Service Pack 1 (SP1)

    的有关如何获取 Forefront 威胁管理网关 2010 Service Pack 1 的详细信息请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
    981324Forefront 威胁管理网关 2010 Service Pack 1 中修复的问题列表
  2. 启动的记事本),然后复制以下脚本到一个记事本文件。

    请注意
    默认状态下,该修补程序被禁用。 此脚本启用 修补程序。
    Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"
    Const SE_VPS_NAME = "LogDomainNameForFWC"
    Const SE_VPS_VALUE = true
    
    Sub SetValue()
    
        ' Create the root object.
        Dim root  ' The FPCLib.FPC root object
        Set root = CreateObject("FPC.Root")
    
        'Declare the other objects that are 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
    
    	Save the file as a Microsoft Visual Basic script file by using the .vbs file name extension. For example, use the following name to save the file: 
    logdomainnameforfwc.vbs
    5. 	Start a command prompt, move to the location where you saved the logdomainnameforfwc.vbs  file, and then run the following command: 
    cscript logdomainnameforfwc.vbs
    
    
    Hotfix removal information 
    Important Before you remove the hotfix that is mentioned in KBXXXXX, you must first run the following script to remove the Dontlogdomainnameforfwc.vbs value.
    Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"
    Const SE_VPS_NAME = "LogDomainNameForFWC"
    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
        ' 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
    
  3. 使用.vbs 文件扩展名将文件保存为 Microsoft Visual Basic 脚本文件。 例如对于保存该文件使用以下名称:
    EnableHotfix980723.vbs
  4. 双击该.vbs 文件,以运行 it.

状态

Microsoft 已经确认这是一个问题,在 Microsoft 产品中所列的"适用于"一节。

参考

有关软件更新术语的详细信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
824684用于描述 Microsoft 软件更新的标准术语的说明

属性

文章编号: 980723 - 最后修改: 2010年8月3日 - 修订: 1.0
这篇文章中的信息适用于:
  • Microsoft Forefront Threat Management Gateway 2010 Enterprise
  • Microsoft Forefront Threat Management Gateway 2010 Standard
关键字:?
kbexpertiseinter kbqfe kbfix kbsurveynew kbmt KB980723 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 980723
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com