reporting-services - 在 SSRS 2008 报告管理器中获取用户/客户端查看报告的 IP 地址

Question

一定有办法做到这一点。我只需要一种方法来公开正在 SQL 2008(不是 r2)报表服务器上查看报表的用户的 IP 地址(或计算机名称 - 但我认为 IP 更容易获得)。这是我已经尝试过的:

1. 在报告代码块中编写代码获取IP地址如:

   Public Function GetClientIP() As String
       Dim sReturn As String = ""
       Dim ipHost As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
   
       For i As int32 = 0 To ipHost.AddressList.Length - 1
           If (Not ipHost.AddressList(i) Is Nothing AndAlso ipHost.AddressList(i).ToString().Trim() <> "" AndAlso ipHost.AddressList(i).ToString().Length() <= 15) Then
               sReturn = ipHost.AddressList(i).ToString()
           End If
       Next i
   
       Return sReturn
   End Function
   

   起初这给了我各种安全权限错误，我能够通过在 rssrvpolicy.config 中将 Report_Expressions_Default_Permissions 的 PermissionSet 更改为 FullTrust 来绕过它:

   <CodeGroup
     class="UnionCodeGroup"
     version="1"
     PermissionSetName="FullTrust"
     Name="Report_Expressions_Default_Permissions"
     Description="This code group grants default permissions for code in report expressions and Code element. ">
     <IMembershipCondition
     class="StrongNameMembershipCondition"
     version="1"
     PublicKeyBlob="0024000004800000940000000602000000240000525341310004000001000100512C8E872E28569E733BCB123794DAB55111A0570B3B3D4DE3794153DEA5EFB7C3FEA9F2D8236CFF320C4FD0EAD5F677880BF6C181F296C751C5F6E65B04D3834C02F792FEE0FE452915D44AFE74A0C27E0D8E4B8D04EC52A8E281E01FF47E7D694E6C7275A09AFCBFD8CC82705A06B20FD6EF61EBBA6873E29C8C0F2CAEDDA2"
     />
   </CodeGroup>
   

   毕竟我发现它返回的是服务器 IP 地址而不是客户端!那不是什么this或 this说。

2. 我尝试了不同的 ASP.net 变量，例如 HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"]

   1. 仅在部署时有效，并在从调试器运行时抛出错误(我想这是预料之中的)和
   2. 它也只返回服务器 IP 地址!

   事实上，我写了一个快速脚本来获取所有服务器变量并将其显示在报告屏幕上，但没有一个包含客户端 IP 地址!

   Public Function GetServerVariables() AS String
       Dim sReturn as String = ""
   
       for i as int32 = 0 to System.Web.HttpContext.Current.Request.ServerVariables.Count -1
           sReturn &=System.Web.HttpContext.Current.Request.ServerVariables.Keys(i).ToString & ": " & System.Web.HttpContext.Current.Request.ServerVariables.Item(i).ToString() & " - "
       next i
   
       Return sReturn
   End Function
   

3. 我尝试在 vb.NET 中创建一个自定义程序集，它基本上运行与上面的 GetClientIP() 函数完全相同的代码，但在尝试了几天后我无法解决该程序的权限错误。我最终放弃了这个，因为大约在同一时间我得到了步骤 (1) 中的报告代码，并且由于它正在返回服务器 IP 地址，我假设自定义程序集会返回相同的东西。

所以我们有它。抱歉冗长的解释，但我想尽可能详尽。对于那些想知道为什么我需要用户 IP 地址的人来说，这实际上是另一个复杂的故事，如果有人真的想知道，我会在另一篇文章中解释。

最重要的是，我需要在其浏览器中运行报告的计算机的 IP 地址或计算机名称。用户名或任何其他详细信息是不够的，除非它们可以用于以某种方式查找 IP 地址。

Answer 1

我花了一些时间尝试返回客户端 IP，但也没有成功。但是，我想我会告诉你我做了什么，以防它对你有进一步的建议，或者如果你的环境与我的不同。我在 SharePoint 集成模式下运行。

首先，我认为我可以通过将 IP 作为参数传递来绕过服务器，所以我将以下函数编写为自定义代码:

Public Function GetIPAddress() As String
    Dim strHostName As String
    Dim strIPAddress As String
    strHostName = System.Net.Dns.GetHostName()
    strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

    Return strIPAddress
End Function

然后我有一个带有表达式的参数:

=Code.GetIPAddress()

不错的理论，并且在本地工作得很好，但是当部署时，自定义代码会在服务器上进行评估，我得到了我的 Reporting Services 服务器 IP 地址，而不是我的本地 IP 地址。

然后我尝试了带有各种变量的 HttpContext，结果稍微好一点，但也好不了多少:

Public Function GetClientIP() As String
    Dim IpAddress As String

    IpAddress = "UserHost: " + System.Web.HttpContext.Current.Request.UserHostAddress + " ClientIP: " + System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") + " Remote: " + System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR") +         " Forward: " + System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   return IpAddress
End Function

UserHostAddress 为我提供了 SharePoint 服务器 IP，HTTP_CLIENT_IP 为空，REMOTE_ADDR 为 SharePoint 服务器 IP，HTTP_X_FORWARDED_FOR 为空。

所以它可能无法完成。无论如何，有some reasons to avoid using HttpContext in reports包括它在异步线程(用于呈现报告)和不是使用 Http 请求执行的报告订阅中不可用。

无论如何，这就是我要做的 - 祝你好运!