Question

我正在创建一个帮助台作为辅助项目，并使用'usernameTXT'和'passwordTXT'文本框创建了一个小的登录页面。

我希望用户名和密码在我的域上对我的AD服务器进行身份验证：

domain - home.local dc - home-serv

我已经在线尝试了所有LDAP示例而没有运气。我可能做错了吗？

有人可以帮助我让ms网站通过域名进行身份验证吗？我希望所有用户都能登录系统。

谢谢！

Answer 1

尝试这样的事情

 Public Function Authenicate(ByVal username As String, ByVal password As String) As Boolean
       Dim isValid As Boolean = False
       Try
       Dim de As New DirectoryServices.DirectoryEntry("LDAP://local.home", username, password, _
            DirectoryServices.AuthenticationTypes.Secure Or _
            DirectoryServices.AuthenticationTypes.Sealing Or _
            DirectoryServices.AuthenticationTypes.Signing)
        de.RefreshCache()
        isValid = True
     Catch
     End Try
     Return isValid
End Function

AD验证登录页面

1 个答案: