应用程序级别 Intranet 用户的 Windows 身份验证（带有 VB 的 ASP.NET）

Question

我的公司使用 ActiveDirectory，IT 部门自然希望保持对其的控制，而不是将控制权交给其他用户。我正在使用 SQL Server 2008 数据库开发 ASP.NET 应用程序（仅供内部使用）。

我的问题是，如何最好使用 .NET 命名空间和 SQL Server 在应用程序（或可能是数据库）级别管理组织内对应用程序的访问？我希望根据 ActiveDirectory 提供的网络用户名对用户进行授权。

顺便说一句，我还想访问他们的 AD 联系信息。

根据我的理解，我可以在 System.DirectoryServices 命名空间中使用 ActiveDirectoryMembershipProvider 类或域服务。还有 LDAP，这显然是另一种可能性。我很难理解这一切，更不用说哪个是最好的选择以及如何实现它。任何人都可以为我提供一些方向和可能的一些简单的示例代码吗？

更新：抱歉，我忘了提及我正在使用 VB.NET 作为我的代码源，因为它是公司标准。

多谢！ ;)

Answer 1

下面是一段快速代码片段，它开启了我的 Active Directory 和 ASP.NET 永无止境的旅程。在一个小测试页面中，我放置了一个文本框并插入了 LAN ID，它会返回所有可用的 AD 字段。

    Protected Sub btnSearchUserDetails_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearchUserDetails.Click
    Dim Entry1 As New System.DirectoryServices.DirectoryEntry("LDAP://DC=ent,DC=foo,DC=bar,DC=corp", "yourID", "yourPassword")
    Dim search As New DirectorySearcher(Entry1)
    search.Filter = [String].Format("(SAMAccountName={0})", txtSearchUser.Text)

    Dim result As SearchResult = search.FindOne()
    Dim user As DirectoryEntry = result.GetDirectoryEntry()
    PrintDirectoryEntryProperties(user)
    End Sub

---

Private Sub PrintDirectoryEntryProperties(ByVal entry As System.DirectoryServices.DirectoryEntry)


    'loop through all the properties and get the key for each prop


    lblPropList.Text = "<table>"
    For Each Key As String In entry.Properties.PropertyNames
        Dim sPropertyValues As String = [String].Empty
        'now loop through all the values in the property;
        'can be a multi-value property
        For Each Value As Object In entry.Properties(Key)
            sPropertyValues += Convert.ToString(Value) + ";<br>"
        Next
        'cut off the separator at the end of the value list
        sPropertyValues = sPropertyValues.Substring(0, sPropertyValues.Length - 5)
        'now add the property info to the property list

            lblPropList.Text += "<tr><td>" & Key & "</td><td>" & sPropertyValues & "</td></tr>"

    Next
    lblPropList.Text += "</table>"

End Sub

---

要获取当前经过身份验证的用户的 AD 登录 ID，Request.ServerVariables("LOGON_USER") 和 Httpcontext.Current.User.Identity.Name 将成为您的朋友。请记住，如果您使用允许匿名安全访问 ASP 页，则不会填充 LOGON_USER 变量。< /a>

我将回顾我的一些笔记，并尝试找到一些我使用过的、最终对我最有帮助的资源。我可以立即告诉您《目录服务编程的 .NET 开发人员指南》一书 (亚马逊）是我每天使用的。

Answer 2

后来我发现，Windows 身份验证模式在内网环境中运行得很好。我决定在开发时在 IIS 配置中启用此模式，并让每个页面通过网络登录自动识别用户并指向他们（或允许/禁止访问适当的页面）。请记住，我的解决方案仅适用于 Intranet/如果您位于域控制器上。

这是相关的 Web.config

<system.web>
    <authentication mode="Windows" />
    <identity impersonate="false" />
</system.web>

我认为最简单的方法是在数据库中查找用户名并找到其关联的角色/组，然后评估该角色是否应该允许他们访问 VB 代码隐藏中的请求页面。以下是如何获取用户网络用户名：

' While logged into your intranet will return "DOMAIN\username"
Dim username As String = Page.User.Identity.Name

这是一些示例 VB.NET 代码，可用于（自动）进行身份验证并允许访问给定页面（不完全是我使用的代码，只是一个示例）。

Dim role As String
Using con As New SqlConnection(ConfigurationManager.ConnectionStrings("conString").ConnectionString)
    Dim query As New SqlCommand("select top (1) Role from Users where Username like '" + username + "'", con)
    con.Open()
    role = query.ExecuteScalar().ToString
End Using
If StrComp(role, "Admin") = 0 Then
    welcomeLabel.Text = "Welcome! You may enter"
Else
    HttpContext.Current.Server.Transfer("/Kick.aspx")
End If

我希望有些人觉得这很有用。我花了无数的时间来解决与此几乎相同的解决方案。

干杯；）

Answer 3

使用“在数据库中查找用户名并找到其关联的角色/组”的接受答案恕我直言，它忽略了整个要点。

解决方案是在 Visual Studio 中选中 NTLM 身份验证复选框（使用版本 2012 位于项目的“属性”、“Web”、“服务器”下；其他版本应该类似）。