Posted on 2005-06-26 22:47
jlzhou 阅读(3084)
评论(5) 编辑 收藏 所属分类:
编程技术区
前几天花了两天时间研究如何在.NET下验证LDAP的用户身份，看了一些java和vb的代码，碰了不少钉子，试验再试验，终于搞定，与大家分享...
首先，我要讲的LDAP不是微软的Active Directory目录服务，而是运行在SUN One上面的目录服务。
请看代码（部分敏感信息删节）：
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 DirectorySearcher(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.GetDirectoryEntry().Properties("DisplayFirstName").Value & " " & mySearchResult.GetDirectoryEntry().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 这里要说明一下：
1、必须检验密码不能为空，否则会造成验证有误，即空密码能通过验证，不知道为什么。
2、LDAP://......这最前面的四个字母LDAP必须大写！否则报未知错误，不知道为什么，还得我走了一段弯路。
3、ldapserver.com需要替换成LDAP服务器的地址。
4、LDAP://......地址后面的参数，要根据你要访问的LDAP的设置而定。
5、如果密码不对，会引发异常，所以我在异常处理中捕获，但是不知道这样是否正确。
6、If mySearchResult Is Nothing Then 这句我觉得是废话，好像怎么也不会为True，如果密码不对，会引发异常的，但是不放心还是加上这句，可能是我的判断逻辑有问题。
总之，这段代码肯定不是最完美的代码，但是确实是可以完成任务的代码，欢迎大家指正。