	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.0

Pull User Info from Active Directory using .net for SSIS package

Asked by qube09 in SSIS, Server Applications, .NET Framework 2.x

Tags: SSIS .net active Directory

I am attempting to extract selected info from active directory for all users as a portion of an SSIS package. Initially I began with sql but ran into the pagesize limit (1000). After some searching I leaned that .net may be more appropriate due to its handing of pagesize. I really have little experience with .net but thought that perhaps it would be a decent learning experience.
The end goal is to produce a table containing domain(supplied by me in code), samaccountname,displayname,distinguishedname,lastlogintimestamp,department,description.
I believe that I will be able to manipulate lastlogin to be presented in a more usable format. I have been led to believe that description may be difficult to obtainparticularly for a newbie.
At any rate, I have located some code snippets that can produce all samaccountnames but I can not use it to obtain any of the other fields. I have commented out or removed some of it for brevity's sake. I know that using a linked server that an openquery will produce all fields except description as nvarchar. Yet in .net the compiler seems to expect department for instance as cint and when implemented yields a 0. (Granted my sql pull of 1000 records does produce nulls but cint?)

This has been a most confusing experience.

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

           
           
             Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Imports System.DirectoryServices
Imports System.Collections
 
Public Class ScriptMain
    Inherits UserComponent
     Public Overrides Sub CreateNewOutputRows()
        Dim domain As String = "xyzdomain"
            Dim searchRoot As New DirectoryEntry("LDAP://dc=xyz,dc=com", Nothing, Nothing, AuthenticationTypes.Secure)
 
        Dim dirSearch As New DirectorySearcher(searchRoot)
        Dim props As ResultPropertyCollection
        Dim values As ResultPropertyValueCollection
        Dim key As String
        Dim accountName As String
        Dim department As String
        Dim displayname As String
        Dim distinguishedName As String
        Dim lastlogintimestamp  As String
        Dim description As String
 
        dirSearch.SearchScope = SearchScope.Subtree
        dirSearch.PropertiesToLoad.Add("samaccountname")
       'dirSearch.PropertiesToLoad.Add("displayname")
       'dirSearch.PropertiesToLoad.Add("department")
       'dirSearch.PropertiesToLoad.Add("distinguishedname")
      ' dirSearch.PropertiesToLoad.Add("lastlogintimestamp")
       'dirSearch.PropertiesToLoad.Add("description")
        dirSearch.Filter = "(objectclass=user)"
        dirSearch.PageSize = 1000
 
        Using searchRoot
            Using results As SearchResultCollection = dirSearch.FindAll()
                For Each result As SearchResult In results
                    props = result.Properties
                    For Each entry As DictionaryEntry In props
                        key = CType(entry.Key, String)
 
                        If key = "samaccountname" Then
                            values = CType(entry.Value, ResultPropertyValueCollection)
                            accountName = CType(values.Item(0), String)
                            If accountName.EndsWith("$") = False Then
                                OutputBuffer.AddRow()
                                OutputBuffer.AccountName = accountName
                                OutputBuffer.Domain = domain
                            End If
                        End If
                    Next
                Next
            End Using
        End Using
    End Sub
End Class

           
         

20091118-EE-VQP-93 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. PedroCGD358,442
2. HoggZilla278,024
3. nmcdermaid116,650
4. reza_rad68,325
5. stelth24062,275
6. rrjegan1740,247
7. reb7335,774
8. CGLuttrell32,718
9. mark_wills31,925
10. aaronakin27,130
11. acperkins24,828
12. dodge2020,000
13. rob_farley15,400
14. brejk15,050
15. angelIII14,442
16. jbyers7914,125
17. Hwkranger14,077
18. DanielWilson13,210
19. chapmandew13,150
20. EugeneZ12,200
21. RiteshShah10,225
22. JestersGrind10,000
23. tigin449,812
24. tpi0079,060
25. ralmada8,700

1. PedroCGD458,005
2. HoggZilla418,436
3. nmcdermaid124,300
4. reza_rad68,325
5. stelth24062,275
6. mark_wills54,025
7. rrjegan1740,247
8. reb7335,774
9. CGLuttrell32,718
10. aaronakin31,130
11. chapmandew29,850
12. acperkins27,528
13. dodge2020,000
14. angelIII17,942
15. brejk17,550
16. rob_farley17,400
17. DanielWilson17,210
18. jbyers7914,125
19. Hwkranger14,077
20. tigin4413,812
21. EugeneZ12,200
22. mwvisa111,300
23. RiteshShah10,225
24. JestersGrind10,000
25. BrandonG...9,965

Pull User Info from Active Directory using .net for SSIS package

Asked by qube09 in SSIS, Server Applications, .NET Framework 2.x

Tags: SSIS .net active Directory

About this solution