.NET Ldap connection

Merhaba,

Aşağıdaki procedure ile AD'üzerindeki enable olan kullanı hesapları ile login olabilirisniz.

Private Sub SimpleButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
     If ValidateActiveDirectoryLogin("Ip_Address", "Domain_Name", "User_Id", "Pwssword") = True Then
          Login()
     End If
End Sub

Private Function ValidateActiveDirectoryLogin(ByVal Dns As String, ByVal DomainName As String, ByVal Uid As String, ByVal Pwd As String) As Boolean
     Try
          Dim Success As Boolean = False
          Dim dirEntry As New DirectoryEntry("LDAP://" & Dns & "/CN=Users;DC=" & DomainName, Uid, Pwd, AuthenticationTypes.Secure)
          Dim Searcher As New System.DirectoryServices.DirectorySearcher(dirEntry)
          Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
          Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne
          Success = Not (Results Is Nothing)
          Return Success
     Catch ex As Exception
          Return False
     End Try
End Function