[RESOLVED] Active Directory

[tdk007]

Hi, is it possible to connect to the Active Directory without using a login and password?

Thanks

[riteshjain1982]

seems you are working on app related to Active directory,may be you can look into this sample application.

http://www.codeproject.com/KB/system...edirquery.aspx

[tdk007]

I need to know, for a specific user, in which group he's in.

[riteshjain1982]

have you tried with PropertiesToLoad.Add("memberOf") property of DirectorySearcher object

[tdk007]

How do I get the IP of the LDAP?

[riteshjain1982]

I found one sample,this will work if user and machine on which you are running you app is in same domain.

 Public Sub GetUserGroups(ByVal UserName As String)

        Dim search As New DirectorySearcher("")
        Dim intG_Counter As Int 
        Dim intcounter As Int 
        Dim strGroupName As String
        Dim strPrimaryGroup As String
        Dim GroupArr As Array
        Dim DataToWriteGroups As String
        Try

            search.Filter = "(&(!(userAccountControl:1.2.840.113556.1.4.803:=2))(objectCategory=user)(samaccountname=" + UserName.ToString.Trim + "))"
            search.PropertiesToLoad.Add("memberOf")

            Dim result As SearchResult = search.FindOne()

            If Not (IsNothing(result)) Then

                Try
                    intG_Counter = result.Properties("memberOf").Count
                Catch exc As NullReferenceException
                    intG_Counter = 0
                End Try

                If intG_Counter > 0 Then
                    DataToWriteGroups = "Group(s) Belongs To User - " + UserName + ""
                     For intcounter = 0 To intG_Counter - 1
                        strGroupName = ""
                        strGroupName = CStr(result.Properties("memberOf")(intcounter))
                        GroupArr = Split(strGroupName, ",")
                        If Not (IsNothing(GroupArr(0))) Then
                            strGroupName = Mid(GroupArr(0), 4, Len(GroupArr(0)) - 3)
                               MessageBox.Show("Group(s) belongs to " + UserName + " - " & strGroupName )
                        End If
                    Next
                End If
                '' Get primary Group
                strPrimaryGroup = GetPrimaryGroupName(UserName)
                If strPrimaryGroup.Length > 0 Then
                     MessageBox.Show("Primary Group belongs to " + UserName + " - " & strPrimaryGroup )
                End If

            End If
        Catch exc As Exception
            MessageBox.Show(ex.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
            Exit Sub
        Finally
            search.Dispose()
        End Try
    End Sub

Just pass the user name.

[tdk007]

Thanks a lot