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 に答える