2

整个下午！我目前正在尝试为我的客户建立一个新的内部系统，他们坚持将登录与 AD 集成，这是有道理的，我已经成功地做到了这一点。

但是，在身份验证之后，我还想做的是将一些用户详细信息/属性存储为会话变量。

我有以下代码来验证用户：

'this function authenticates against AD - very simple and works nicely.
Function AuthenticateUser(path As String, user As String, pass As String) As Boolean
    Dim de As New DirectoryEntry(path, user, pass, AuthenticationTypes.Secure)
    Try
        'run a search using those credentials.  
        'If it returns anything, then you're authenticated
        Dim ds As DirectorySearcher = New DirectorySearcher(de)
        ds.FindOne()

        Return True
    Catch
        'otherwise, it will crash out so return false
        Return False
    End Try
End Function

效果很好，一旦函数返回 True，我将 Session("LoggedIn") 设置为 True。

我需要做的是（希望在上述函数中）保存用户名，以及来自用户的 AD 配置文件中的其他 2 个自定义属性。

我将如何访问这些（假设）

4

1 回答 1

1

使用DirectorySearcher支持检索属性的构造函数。将 LDAP 客户端所需的属性添加到构造函数。

也可以看看

于 2012-05-15T19:10:19.883 回答