Solved

Getting  the target  OU in Active Directory

Posted on 2012-03-28
22
453 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
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
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
 
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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

While rebooting windows server 2003 server , it's showing "active directory rebuilding indices please wait" at startup. It took a little while for this process to complete and once we logged on not all the services were started so another reboot is …
In-place Upgrading Dirsync to Azure AD Connect
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

831 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