BIND AD to DataGrid

-
To bind the Active Directory to a datagrid I have built two functions. The first one is called either on pageload or button click or whenever you want it to happen:

(Watch for wrapping)


Private Function CheckAD()

Dim objRootDSE = GetObject(ldap://RootDSE/)
Dim adPath As String = "LDAP://" & Mid(objRootDSE.Get("DefaultNamingContext"), InStr(objRootDSE.Get("DefaultNamingContext"), "DC=") + 3, InStr(objRootDSE.Get("DefaultNamingContext"), ",") - 1 - 3)
Dim adAuth As LDAPAuthenticate = New LDAPAuthenticate(adPath)
dgLdap.DataSource = LDAPAuthenticate.LoadADList(adPath)
dgLdap.DataBind()

End Function

The second one actually connects to the Active Directory and returns a list of the searched properties:

Public Shared Function LoadADList(ByVal pathsent As String) As List(Of LDAPAuthenticate)

Dim result As SearchResultCollection = Nothing
Dim entry As DirectoryEntry = New DirectoryEntry(pathsent, "testuser", "password")
Dim obj As Object = entry.NativeObject
Dim search As DirectorySearcher = New DirectorySearcher(entry)
search.Filter = "(&(objectCategory=user)(objectClass=Person)() (sn=*))" ',ObjectClass=user mail=" & sEmailAddress & " (ObjectClass=user)(objectClass=person)

search.PropertiesToLoad.Add("sn")
search.PropertiesToLoad.Add("userAccountControl")
search.PropertiesToLoad.Add("department")
search.PropertiesToLoad.Add("ou")
search.PropertiesToLoad.Add("whenChanged")
search.PropertiesToLoad.Add("employeeType")
search.PropertiesToLoad.Add("userAccountControl")
search.PropertiesToLoad.Add("mail")
search.PropertiesToLoad.Add("telephoneNumber")
search.PropertiesToLoad.Add("samAccountName")
search.PropertiesToLoad.Add("objectGUID")
search.PropertiesToLoad.Add("title")
search.PropertiesToLoad.Add("c")
search.SearchScope = SearchScope.Subtree

Dim resultUsers As SearchResultCollection = search.FindAll()

Dim items As New List(Of LDAPAuthenticate)

For Each srUser As SearchResult In resultUsers

Dim de As DirectoryEntry = srUser.GetDirectoryEntry()
Dim p As New LDAPAuthenticate
Dim strtmp As String = String.Empty

p.USERName = de.Properties("SAMAccountName").Value
p.GivenName = de.Properties("givenName").Value
p.SN = de.Properties("sn").Value
p.MailAcct = de.Properties("mail").Value
p.Department = de.Properties("department").Value
p.Title = de.Properties("title").Value
p.OrgUnit = de.Properties("ou").Value
p.AccountDisabled = de.Properties("userAccountControl").Value

Next

Return items
End Function

Comments

Post a Comment

Popular posts from this blog

Grouping with Data Entities

-
I am really loving the data entity in my new projects but have come across a couple of issues already. Tonight I learned about using a field that is not a part of your database and not in the entity but is a consolidation field from a group.  Once I found some good samples it worked incredibly well and I had a little summary grid on the page in just a couple of minutes.  So here is what I did  using (myEntityName context = new myEntityName())     { //First I declared a couple of variables because I was looking at data between specific dates          DateTime startdate = DateTime.Parse("2014-02-01");             DateTime enddate = DateTime.Parse("2014-02-01");          var dbRecords = (from c in context.myTableName                           where (c.MemberStartDate >= startdate && c.MemberStart...
Read more

Localizer in Controller

-
Localizer in Controller Using using Microsoft.Extensions. Localization; Includes private readonly IStringLocalizer< AppAccessController>  _localizer; Resource file must be in a Controller Folder in Resources Method example public Dictionary<string,string> GetRoleList(string appName, bool includeX) { //Code here return allItems.ToDictionary<string, string, string>(i => i, i =>  _localizer[i] ); }
Read more

Sticky Footer made simple

-
CSS Footers are simple but people tend to overthink them.  Here is how it works You have two pieces A container that all your other stuff is in A footer that you want to always stay at the bottom of the page In Blazor I put this container on my content pages and not my host page because I didn't want my left hand nav to be involved <div class="container"> All my content </div> <footer> Centered footer content </footer> And the CSS .container {     width:100%;     padding: 0 15px; } footer {     font-size: 12px; (you could also use a vw value here)     padding-top:20px;     background-color: #xxx;     color: #fff;     margin: auto;     height: 60px;     width: 100%;     position: sticky; //absolute;     bottom: 0;     text-align: center; }
Read more