0

次のエラーが発生しました

{"指定されたドメインが存在しないか、接続できませんでした。"}

ラインで

 Dim adResults = adSearch.FindOne.Path

誰もがそれがなぜであるかを提案できますか? 以下のコードを見ると

Dim ID As FormsIdentity = DirectCast(User.Identity, FormsIdentity)
    Dim ticket As FormsAuthenticationTicket = ID.Ticket
    Dim adTicketID As String = ticket.Name
    Dim adSearch As New DirectorySearcher
    adSearch.Filter = ("(userPrincipalName=" & adTicketID & ")")
    Dim adResults = adSearch.FindOne.Path
    Dim adResultsDirectory As New DirectoryEntry(adResults)
    Dim found As Boolean = False
    For Each entry In adResultsDirectory.Properties("memberOf")
        Response.Write(entry)
        Response.Write("<br/>")
        If entry = "CN=GroupName,CN=UserGroup,DC=my,DC=domain,DC=com" Then
            found = True
        End If

    Next
    If Not (found) Then
        Response.Redirect("login.aspx")
    End If
4

1 に答える 1

0

ドメインはどこに指定されていますか？の最初のパラメータはDirectoryEntry、次のようなADサーバーである必要がありますLDAP://adserver。

ユーザーがADで認証されているかどうかを確認するために使用しているコードは次のとおりです。

Dim dsDirectoryEntry As New DirectoryEntry("LDAP://" & domain, userName, password)

Dim dsSearch As New DirectorySearcher(dsDirectoryEntry)
Dim dsResults As SearchResult = dsSearch.FindOne()

If dsResults IsNot Nothing Then
    Return True
Else
    Return False
End If

構成から読み取っているドメイン、userNameとpasswordはログインフォーム入力からのものです。

于 2013-02-10T12:04:49.280 に答える