Help me in active directory search for special group in asp.net

[Sara]

Dear Sir,
I want to access to a special group in active directory but with this
function I could just see that a special user is exist in active
directory or not, I mean I want to see that a user is exist in special
group which I myself specified not in all of active directory. could
you please help me and change this code or show me a method to which
could do what I wanted

thanks

my organization unit is "hh"
my group name is "test11"
--------------------------------------------------

Public Function ValidateUser(By Val Domain As String, ByVal username As
String, ByVal password As String) As Boolean

Dim strGroupDN As String
strGroupDN = "Users"

Try
Dim de As New DirectoryEntry( "LDAP://" & Domain, username,
password, AuthenticationT ypes.Secure)
Dim srch As New DirectorySearch er(de)

' srch.Filter = "(objectClass=G roup)"
'srch.SearchSco pe = SearchScope.Sub tree
srch.Filter = "(&(ou=hh)(!(ou =builtin)(ou=Us ers)))"
' srch.Filter =
"(&(objectClass =user)(samAccou ntName=" & username & ")(ou=hh)"
'srch.Filter =
"(&(objectCateg ory=Person)(obj ectClass=user)( ou=hh)"

' srch.Filter = "(&(objectClass =user)(samAccou ntName=" &
username & ")(memberOf =" & strGroupDN & "))"
Dim result As SearchResult = srch.FindOne
'Dim obj As DirectoryEntry
If Not result Is Nothing Then
'obj = result.GetDirec toryEntry()

'Response.Write (obj)
Return True
Else
Return False
End If
Catch ex As Exception
Console.Write(e x.Message + ControlChars.Ne wLine +
ex.StackTrace)
Return False
End Try
End Function

[Willy Denoyette [MVP]]

Why cross-posting instead of posting to the correct NG?

Please, post VB.NET questions to microsoft.publi c.dotnet.langua ges.vb.

Willy.

"Sara" <ra*****@aut.ac .ir> wrote in message
news:ae******** *************** **@posting.goog le.com...

Dear Sir,
I want to access to a special group in active directory but with this
function I could just see that a special user is exist in active
directory or not, I mean I want to see that a user is exist in special
group which I myself specified not in all of active directory. could
you please help me and change this code or show me a method to which
could do what I wanted

thanks

my organization unit is "hh"
my group name is "test11"
--------------------------------------------------

Public Function ValidateUser(By Val Domain As String, ByVal username As
String, ByVal password As String) As Boolean

Dim strGroupDN As String
strGroupDN = "Users"

Try
Dim de As New DirectoryEntry( "LDAP://" & Domain, username,
password, AuthenticationT ypes.Secure)
Dim srch As New DirectorySearch er(de)

' srch.Filter = "(objectClass=G roup)"
'srch.SearchSco pe = SearchScope.Sub tree
srch.Filter = "(&(ou=hh)(!(ou =builtin)(ou=Us ers)))"
' srch.Filter =
"(&(objectClass =user)(samAccou ntName=" & username & ")(ou=hh)"
'srch.Filter =
"(&(objectCateg ory=Person)(obj ectClass=user)( ou=hh)"

' srch.Filter = "(&(objectClass =user)(samAccou ntName=" &
username & ")(memberOf =" & strGroupDN & "))"
Dim result As SearchResult = srch.FindOne
'Dim obj As DirectoryEntry
If Not result Is Nothing Then
'obj = result.GetDirec toryEntry()

'Response.Write (obj)
Return True
Else
Return False
End If
Catch ex As Exception
Console.Write(e x.Message + ControlChars.Ne wLine +
ex.StackTrace)
Return False
End Try
End Function

[Willy Denoyette [MVP]]

Why cross-posting instead of posting to the correct NG?

Please, post VB.NET questions to microsoft.publi c.dotnet.langua ges.vb.

Willy.

"Sara" <ra*****@aut.ac .ir> wrote in message
news:ae******** *************** **@posting.goog le.com...

Dear Sir,
I want to access to a special group in active directory but with this
function I could just see that a special user is exist in active
directory or not, I mean I want to see that a user is exist in special
group which I myself specified not in all of active directory. could
you please help me and change this code or show me a method to which
could do what I wanted

thanks

my organization unit is "hh"
my group name is "test11"
--------------------------------------------------

Public Function ValidateUser(By Val Domain As String, ByVal username As
String, ByVal password As String) As Boolean

Dim strGroupDN As String
strGroupDN = "Users"

Try
Dim de As New DirectoryEntry( "LDAP://" & Domain, username,
password, AuthenticationT ypes.Secure)
Dim srch As New DirectorySearch er(de)

' srch.Filter = "(objectClass=G roup)"
'srch.SearchSco pe = SearchScope.Sub tree
srch.Filter = "(&(ou=hh)(!(ou =builtin)(ou=Us ers)))"
' srch.Filter =
"(&(objectClass =user)(samAccou ntName=" & username & ")(ou=hh)"
'srch.Filter =
"(&(objectCateg ory=Person)(obj ectClass=user)( ou=hh)"

' srch.Filter = "(&(objectClass =user)(samAccou ntName=" &
username & ")(memberOf =" & strGroupDN & "))"
Dim result As SearchResult = srch.FindOne
'Dim obj As DirectoryEntry
If Not result Is Nothing Then
'obj = result.GetDirec toryEntry()

'Response.Write (obj)
Return True
Else
Return False
End If
Catch ex As Exception
Console.Write(e x.Message + ControlChars.Ne wLine +
ex.StackTrace)
Return False
End Try
End Function