LDAP - User's Group Lookup

[websupport]

My problem is that I can find the user using the CN='Full Name'
I only have User.Identity.Name ='username\domain'

I need find out what groups the user is in.

Using:
ISS 6 on Windows 2003
VB.NET

        'domain\username
        Dim _authenUser As String = HttpContext.Current.User.Identity.Name.ToString
 
 
        Dim _path As String = "LDAP://CN=Users,DC=Domain,DC=com"
        Dim _filterAttribute As String = "My Full Name"
        Dim _SearchGroup As String = "CN=GroupName,OU=Goups,DC=Domain,DC=com"
        Dim search As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(_path)
        search.Filter = "(cn=" + _filterAttribute + ")"
        search.PropertiesToLoad.Add("memberOf")
        Dim strcol As New System.Collections.Specialized.StringCollection
 
        ' search.PropertiesToLoad.Add()
        Dim myresult As DirectoryServices.SearchResult = search.FindOne
 
        Dim mygroup As DirectoryServices.ResultPropertyValueCollection = myresult.Properties.Item("MemberOf")
        For i As Int16 = 0 To mygroup.Count - 1
            If mygroup.Item(i).ToString = _SearchGroup Then
                Return True
            Else
                Return False
            End If
        Next
 

[websupport]

Found it:


Instead of checking cn use SAMAccountName

search.Filter = "(cn=" + _filterAttribute + ")"
 

Use This:

'Authenication is working!
if (HttpContext.Current.User.Identity.IsAuthenticated)
  Dim _authenUser As String = HttpContext.Current.User.Identity.Name.ToString
  Dim _filterAttribute As String = Split(_authenUser, "\")(1) ' Remove domain
else
  return false
end if
 
search.Filter = "(SAMAccountName=" + _filterAttribute + ")"
 

Complete Code:

'domain\username
if (HttpContext.Current.User.Identity.IsAuthenticated)
  Dim _authenUser As String = HttpContext.Current.User.Identity.Name.ToString
  Dim _filterAttribute As String = Split(_authenUser, "\")(1) ' Remove domain
else
  return false
end if
 
  Dim _path As String = "LDAP://CN=Users,DC=Domain,DC=com"
  Dim _SearchGroup As String = "CN=GroupName,OU=Goups,DC=Domain,DC=com"
  Dim search As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(_path)
  search.Filter = "(SAMAccountName=" + _filterAttribute + ")"
  search.PropertiesToLoad.Add("memberOf")
  Dim strcol As New System.Collections.Specialized.StringCollection
 
  ' search.PropertiesToLoad.Add()
  Dim myresult As DirectoryServices.SearchResult = search.FindOne
 
  Dim mygroup As DirectoryServices.ResultPropertyValueCollection = myresult.Properties.Item("MemberOf")
  For i As Int16 = 0 To mygroup.Count - 1
     If mygroup.Item(i).ToString = _SearchGroup Then
        Return True
     Else
        Return False
    End If
  Next