Shulou(Shulou.com)06/02 Report--

This article mainly shows you "VB.NET how to verify LDAP user identity", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "VB.NET how to verify LDAP user identity" this article.

First of all, the LDAP I want to talk about is not Microsoft's Active Directory directory service, but the directory service that runs on SUN One.

Please see the code for VB.NET to verify the identity of LDAP users (some sensitive information is deleted):

Private Sub btnTest_Click () Sub btnTest_

Click (ByVal sender As System.Object

ByVal e As System.EventArgs) Handles

BtnTest.Click

Dim LoginName As String = txtUser.Text

Dim LoginPwd As String = txtPwd.Text

If LoginPwd = "" Then

TxtResult.Text = "* Password can not be blank."

Exit Sub

End If

Dim myDirectorySearcher As DirectorySearcher

Dim mySearchResult As SearchResult

Dim myDirectoryEntry As DirectoryEntry

Dim UserName As String

TxtResult.Text = ""

Try

If myDirectoryEntry.Exists ("LDAP:

/ / ldapserver.com/uid= "& LoginName &"

Ou=people,ou=intranet,dc=yourdomainname

Dc=com ") Then

Try

MyDirectoryEntry = New DirectoryEntry

("LDAP://ldapserver.com/ou=people

Ou=intranet,dc=yourdomainname,dc=com "

Uid= & LoginName & ", ou=people,ou=intranet

Dc=yourdomainname,dc=com ", LoginPwd

AuthenticationTypes.ServerBind)

MyDirectorySearcher = New Directory

Searcher (myDirectoryEntry)

MyDirectorySearcher.Filter = "

(uid= "& txtUser.Text &") "

MyDirectorySearcher.PropertiesToLoad.

Add ("DisplayLastName")

MyDirectorySearcher.PropertiesToLoad.

Add ("DisplayFirstName")

MySearchResult = myDirectorySearcher.FindOne

If mySearchResult Is Nothing Then

TxtResult.Text + = "* Login failed."

Else

TxtResult.Text + = "> Login passed!" & vbCrLf

UserName = mySearchResult.GetDirectory

Entry (). Properties ("DisplayFirstName")

Value & "" & mySearchResult.GetDirectory

Entry (). Properties ("DisplayLastName"). Value

TxtResult.Text + = UserName & vbCrLf

End If

Catch ex As Exception

TxtResult.Text + = "* Login failed." &

VbCrLf & ex.Message

End Try

Else

TxtResult.Text + = "* Invalid user login name."

End If

Catch ex As Exception

TxtResult.Text + = "* Can not access the

LDAP server. "& vbCrLf & ex.Message

End Try

End Sub

I would like to explain here:

1. You must verify that the password cannot be empty, otherwise it will cause an error in verification, that is, the empty password can pass the verification. I don't know why.

2 、 LDAP://. The first four letters LDAP must be capitalized! Otherwise, I would have to take a detour to report an unknown mistake and I don't know why.

3. Ldapserver.com needs to be replaced with the address of the LDAP server.

4 、 LDAP://. The parameters after the address depend on the settings of the LDAP you want to access.

5. If the password is wrong, an exception will be thrown, so I catch it in the exception handling, but I don't know if this is correct.

6. I think the sentence "If mySearchResult Is Nothing Then" is nonsense. It seems that it will never be True. If the password is wrong, it will cause an exception, but I am not sure to add this sentence. It may be that there is something wrong with my judgment logic.

The above is all the content of the article "how VB.NET authenticates LDAP users". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.