User1415440864 posted
Actually, I tried using the IsinRole but it seems to be not working. I have asked one of the admins if the group's name was correct. When I try to log in, it takes me to AddProperty instead of PropertyListing.aspx. Here is the code. Am I doing something
wrong? Thank you.
Protected Sub btnLogIn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogIn.Click
Dim Properties As String() = New String() {"sAMAccountName"}
'verify user credentials against the active directory
Dim ADUser As SearchResult = FindADUser(Properties)
If Not IsNothing(ADUser) Then
'if login names match, then authentication was succesful
If ADUser.Properties("sAMAccountName")(0).ToString.ToUpper = txtUserName.Text.ToUpper Then
If User.IsInRole("MAC/HW/MAC-ALL-RiskPropertyAdmins") Then
Response.Redirect("PropertyListing.aspx")
Else
Response.Redirect("AddProperty.aspx")
End If
Else
ShowError()
End If
Else
ShowError()
End If
End Sub
Private Function FindADUser(ByVal Properties As String()) As SearchResult
Dim Filter As String = String.Format("(&(objectClass=user)(objectCategory=person)(sAMAccountName=" + txtUserName.Text + "))")
Dim Entry As New DirectoryEntry(AppSettings("LdapPath"), txtUserName.Text, txtPassword.Text)
Dim Searcher As New DirectorySearcher(Entry, Filter, Properties)
Try
Return Searcher.FindOne()
Catch ex As Exception
Return Nothing
End Try
End Function
