Private Function ValidateActiveDirectoryLogin(ByVal Domain As String, ByVal Username As String, ByVal Password As String) As Boolean Dim Success As Boolean = False Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, Username, Password) Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry) Searcher.SearchScope = DirectoryServices.SearchScope.Subtree Try Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne Success = Not (Results Is Nothing) Dim dirSearcher As System.DirectoryServices.DirectorySearcher dirSearcher = New System.DirectoryServices.DirectorySearcher(Entry) dirSearcher.Filter = "(samAccountName=" & Username & ")" Dim sr As DirectoryServices.SearchResult = dirSearcher.FindOne() Dim de As System.DirectoryServices.DirectoryEntry = sr.GetDirectoryEntry() Dim userFirstName = de.Properties("GivenName").Value.ToString() Dim userLastName = de.Properties("sn").Value.ToString() Dim group = de.Properties("MemberOf").Value.ToString() Session("username") = userFirstName + " " + userLastName Response.Redirect("Home.aspx") Catch Success = False End Try Return Success End Function
Dim pathParts As String() = sr.Path.Split(New Char() {","c, " "c})
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)