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

Linq Exclude from separate list

-
 var urlList = new List<DisplayAssets>();    var assetsToExclude = (from a in db.DisplayAssets                 join h in db.Hardware_Assets on a.id equals h.displayId                 where h.assetId == hardwareid                 select a.id); var allAssets = db.DisplayAssets; var urls = allAssets.Where(x => !assetsToExclude.Contains(x.id));         urlList = urls.Select(a => new DisplayAssets()         {             locaterAddress  = a.locaterAddress,             assetType = a.assetType,             id = a.id         })         .ToList();
Read more

Sorting Ascending and Descending

-
Toggling the direction of your datagrid sort is easy using a session to remember which direction you sorted last.   You will want to declare an empty string in the top of your page       Dim SortField As String Then on your sort command add this logic - Example of entire command Private Sub dgTaskExceptions_SortCommand( ByVal source As Object , ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgTaskExceptions.SortCommand     SortField = e.SortExpression If Session( "toggle" ) = True Then SortField += " DESC" Session( "toggle" ) = False Else SortField += " Asc" Session( "toggle" ) = True End If Dim orderstring As String = SortField 'REBIND dgTaskExceptions.DataSource = POTracking_Data.tracking.getSampleTasks(orderstring) dgTaskExceptions.DataBind() End Sub   In my datalayer I add this logic to my query and pass in an OPTIONAL value Dim orderbyString As String = String .Empt
Read more

Linq Query Syntax vs Method Syntax

-
Referenced from MSDN: https://msdn.microsoft.com/en-us/library/bb397947.aspx Query syntax: IEnumerable<int> numQuery1 =               from num in numbers             where num % 2 == 0             orderby num             select num; Method syntax:         IEnumerable<int> numQuery2 = numbers.Where(num => num % 2 == 0).OrderBy(n => n)
Read more