Solved

Getting  the target  OU in Active Directory

Posted on 2012-03-28
22
449 Views
Last Modified: 2012-03-31
I am trying to get the groups out of Active Directory - I can get them all, thats no problem
What I am trying to do is get a list of groups out of a target directory
For example LDAP://COMPANY.COM/AN-OU/TARGET-OU
The code I am using is this

    Public Shared Function GetAllGroups() As DataSet
       
        Dim dsGroup As New DataSet()
        Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://COMPANY.com", "USERNAME", "PASS")
        'create instance fo the direcory searcher
        Dim dirSearch As New DirectorySearcher()
        'set the search filter
        dirSearch.SearchRoot = dirEntry
        'deSearch.PropertiesToLoad.Add("cn");
        'dirSearch.Filter = ("(OU=AN-OU,OU=TAGET_OU)")
        dirSearch.Filter = "(objectClass=group)" '(&(objectClass=group)(cn=CS_*)) check on this!!!
        'dirSearch.Filter = "(&(OU=AN_OU,OU=TARGET-OU,DC=COMPANY,DC=com)"
        'dirSearch.SearchScope = SearchScope.Subtree

        'find the first instance
        Dim searchResults As SearchResultCollection = dirSearch.FindAll()
        'Create a new table object within the dataset
        Dim dtGroup As DataTable = dsGroup.Tables.Add("Groups")
        dtGroup.Columns.Add("GroupName")
        'if there are results (there should be some!!), then convert the results
        'into a dataset to be returned.
        If searchResults.Count > 0 Then
            'iterate through collection and populate the table with
            'the Group Name
            For Each Result As SearchResult In searchResults
                'set a new empty row
                Dim drGroup As DataRow = dtGroup.NewRow()
                'populate the column
                drGroup("GroupName") = Result.Properties("cn")(0)
                'append the row to the table of the dataset
                dtGroup.Rows.Add(drGroup)
            Next
        End If
        Return dsGroup
    End Function

Open in new window

0
Comment
Question by:r3nder
  • 10
  • 9
  • 2
22 Comments
 
LVL 22

Expert Comment

by:yo_bee
ID: 37779794
First and for most your Invoking of the LDAP:// is correct.

LDAP syntax should be LDAP://dc=company,dc=com  and if you are looking for an OU your would do it like this LDAP://OU=Target,DC=Company,DC=COM

If you are just looking for a group you can use DSQUERY.

You can also use DSQUERY Group  or DSGET Group to output the Distinguished names.
0
 
LVL 6

Author Comment

by:r3nder
ID: 37779945
I have a hierarchy pic of the OU, but are you saying
Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://OU=Target,DC=Company,DC=COM", "USERNAME", "PASS")
or what
Capture.JPG
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37780105
Your ldap syntax should LDAP:// OU=Target OU ,OU=AN OU,DC=company,DC=com

You work backwards. The lowest in the hierarchy to the highest. Where .com is your last in the list.

Have you tried dsquery ?
0
 
LVL 6

Author Comment

by:r3nder
ID: 37780124
not yet I am trying to figure out with my function how I would use that
0
 
LVL 22

Accepted Solution

by:
yo_bee earned 500 total points
ID: 37780160
Here is a snippet from one of my codes. I do not have it modified for where you want to pass the values.

 Private Sub SearchAD()

        
        Dim objSchemaContainer
       
        
        objSchemaContainer = GetObject("LDAP://OU=target OU,OU=AN OU,DC=company,DC=com")



        Dim objSearch As New DirectorySearcher()
        objSearch.SearchRoot = New DirectoryEntry(objSchemaContainer)
        objSearch.Filter = "(&(objectCategory=group))"
        objSearch.SearchScope = SearchScope.Subtree
        objSearch.PropertiesToLoad.Add("cn")
        Dim colQueryResults As SearchResultCollection
        colQueryResults = objSearch.FindAll()
        Dim objResult As SearchResult
        For Each objResult In colQueryResults
            ComboBox2.Items.Add(objResult.Properties("cn")(0))
        Next

    End Sub

Open in new window

0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37780167
Also why not use the querys saved feature in ADUC.
You can accomplish this and see the query that is being built to meet your needs.
0
 
LVL 6

Author Comment

by:r3nder
ID: 37780168
I will  have a chance to test it tomorrow - I will let you know - thanks for all your help yo_bee
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37780171
No problem
0
 
LVL 6

Author Comment

by:r3nder
ID: 37780183
Cool - that is a neet tool - I will use it first thing in the morning  - thanks for your wealth of knowledge
0
 
LVL 2

Expert Comment

by:MilesLogan
ID: 37781632
With this free tool , you can select the Groups option , then select All groups , then select the OU and choose the Attributes that you need in the report .

http://www.cjwdev.co.uk/Software/ADReportingTool/Info.html
0
Control application downtime with dependency maps

Visualize the interdependencies between application components better with Applications Manager's automated application discovery and dependency mapping feature. Resolve performance issues faster by quickly isolating problematic components.

 
LVL 6

Author Comment

by:r3nder
ID: 37781981
Excellect person, knowledgable and the solution was perfect
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37784701
@r3nder

Did you even try to apply the VB code snippet, DSQUERY or even my suggestion for ADUC?
0
 
LVL 6

Author Comment

by:r3nder
ID: 37785003
I apologize yo_bee I had intended that the credit go to you, I have notified the moderators and have asked them to give YOU the points
Once again I appologize
R3nder
@MilesLogan
Sorry man my fault yo_bee did all the work
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37785016
It's ok, I was just curious if any of the solutions I suggested worked?

If so which one
0
 
LVL 6

Author Comment

by:r3nder
ID: 37785029
I  changed the LDAP to what you suggested and changed the filter to what you suggested in the previous code snippet - worked like a charm - I will do my utmost to ensure you get the points - also that part about expert and knowledgable was to you
Thanks Yo_Bee
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37785211
Thank you, but if not I have enough. Just glad you confirmed what worked.
0
 
LVL 2

Expert Comment

by:MilesLogan
ID: 37785317
all good with me , I get so much help from people here not really an issue with me about points ..

 I will try his option also when I have time .
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37785367
I am going to look into the link recommend.
0
 
LVL 6

Author Closing Comment

by:r3nder
ID: 37790985
Thank you yo_bee
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 37790996
Where did you get the original script from?
0
 
LVL 6

Author Comment

by:r3nder
ID: 37791708
I found it on the web - There is another question of mine you might want to chime in on (getting the group GUID at the same time)
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Installing a printer using group policy preferences is not that hard let’s take a look at it. First lets open up your group policy console and edit the policy you want to add it to. I recommend creating a new policy for each printer makes it a l…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This tutorial will walk an individual through the process of transferring the five major, necessary Active Directory Roles, commonly referred to as the FSMO roles to another domain controller. Log onto the new domain controller with a user account t…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now