none
Problem connecting remote Exchange Server through local TMG RRS feed

  • Question

  • We have a local network protected by Forefront TMG 2010 SP2 (7.0.9193.500) and remote Exchange Server. We have about 70 Microsoft Outlook 2010 clients using RPC over HTTP to connect and we are experiencing a problem with connecting remote Exchange Server. Some clients randomly get connected to server others can not connect with error: "10060 - A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond." Those who can not connect with Microsoft Outlook 2010 also can't connect with IE to OWA. Any computer outside TMG always can connect to remote Exchange Server without any problem.

    The symptoms are very close to this article http://support.microsoft.com/kb/2591803/en-us. We apply SP2 but we can not find setProxySocketSendBufSize.vbs mentioned in this article.

    Any help is appreciated.


    • Edited by Ivan Mogila Tuesday, November 8, 2011 9:53 AM
    Tuesday, November 8, 2011 9:52 AM

Answers

  • Hi,

     

    Thank you for the post.

     

    Please save the following script as setProxySocketSendBufSize.vbs and run it see if it helps.

    =============================================================

    Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"

    Const SE_VPS_NAME = "ProxySocketSendBufSize"

    Const SE_VPS_VALUE = 8192

     

    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

    =======================================================

     

    Regards,


    Nick Gu - MSFT
    Thursday, November 10, 2011 10:00 AM
    Moderator