Fill DropDownList with users from AD

snufse · January 8th, 2010, 05:33 PM

Need to fill a drop down list with users from Active Directory. Have code in place but the "For Each..." does not render any data. Any ideas?

Code:

 
        Dim GroupSearcher As New DirectorySearcher
        Dim GroupSearchRoot As New DirectoryEntry
        GroupSearchRoot.Path = "LDAP://CN=users,DC=vecelliogroup,DC=com"
        GroupSearchRoot.Username = "mydomain\myuserid"
        GroupSearchRoot.Password = "mypassword"
        With GroupSearcher
            .SearchRoot = GroupSearchRoot
            .Filter = "(&(ObjectClass=Group)(CN=Domain Users))"
        End With
        Dim Members As Object = GroupSearcher.FindOne.GetDirectoryEntry.Invoke("Members", Nothing)
        For Each Member As Object In CType(Members, IEnumerable)
            Dim CurrentMember As New DirectoryEntry(Member)
            DropDownList5.Items.Insert(i, CurrentMember.Name.Remove(0, 3))
        Next

timeware · January 12th, 2010, 08:05 AM

I've only used the Add command for programmatically adding to a drop down list so would the following work?

Change:
DropDownList5.Items.Insert(i, CurrentMember.Name.Remove(0, 3))
To:
DropDownList5.Items.Add(New ListItem(i, CurrentMember.Name.ToString))

Can you explain what the CurrentMember.Name.Remove(0, 3) part of the code is intended to do as I've not encountered it before?

snufse · January 12th, 2010, 09:35 AM

I changed:

DropDownList5.Items.Insert(i, CurrentMember.Name.Remove(0, 3))
To:
DropDownList5.Items.Add(New ListItem(i, CurrentMember.Name.ToString))

Still does not work. Why I have no idea.

I changed my code to do following:

Code:

 
Dim Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ADSDSOObject"
Dim SQLStmt As String = "select title, sAMAccountName, displayName from 'LDAP://10.xx.x.3/DC=Vecelliogroup,DC=COM' WHERE objectClass='User'"
Conn.Open("ADs Provider")
Dim rs = CreateObject("ADODB.Recordset")
rs = Conn.Execute(SQLStmt)
Try
Do While Not rs.EOF
DropDownList5.Items.Add(rs.Fields(0).ToString)
rs.MoveNext()
Loop
Catch ex As Exception
Message = ex.ToString
End Try

I do not get any values in my drop down list.

I have also created a linked server and this piece of code works in the query analyzer:

Code:

 
select * 
from openquery(ADSI_10_xx_x_3, ' 
select title, sAMAccountName, displayName 
from ''LDAP://DC=Vecelliogroup,DC=COM'' 
where objectClass = ''User''')

Now I wonder why my code behind does not work as I am doing same selection.

timeware · January 12th, 2010, 11:03 AM

Is the problem in the section where you add to the drop down list or in the selection?

Try running the selection and instead of add the values to a dropdownlist add them to a text box to help you identify the section which causes the problem.

Let me know if the selection generates the correct values and I can then make more suggestions for the drop down list.

snufse · January 12th, 2010, 01:25 PM

Here is the code I now have:

Code:

 
Dim Conn = CreateObject("ADODB.Connection")
Dim RS = CreateObject("ADODB.Recordset")
Conn.Provider = "ADsDSOObject"
Dim strConn = "Active Directory Provider"
Conn.Open(strConn)
Dim strRS As String = "SELECT givenname 'LDAP://10.xx.x.3/DC=Vecelliogroup,DC=COM' WHERE objectClass = 'User'"
RS.Open(strRS, Conn, 1, 1)
Do While Not RS.EOF
Dim mystring As String
mystring = RS.fields(0).ToString
RS.MoveNext()
Loop

Value of String = System.__ComObject

I have taken this code from:

http://forums.aspfree.com/asp-develo...0.html?p=62691

suryakantb · January 22nd, 2010, 05:24 AM

Hi,check this out.
Suppose in your application you are using a DropDownList in a Form and depending upon the item selection you are showing/hiding some views inside a Multiview and you want that the user must select one of the item from the DropDownList before submitting a Form.

So you can write code like the following to validate the DropDown :

<asp:DropDownList ID="ddlExpertLevel" runat="server" AutoPostBack="True" onselectedindexchanged="ddlExpertLevel_SelectedInd exChanged" >

<asp:ListItem Text="--Select--" Value="0" />

<asp:ListItem Text="Beginner" Value="1" />

<asp:ListItem Text="Intermediate" Value="2" />

<asp:ListItem Text="Advanced" Value="3" />

</asp:DropDownList>

<asp:RequiredFieldValidator ID="reqValQuestionType" runat="server" ErrorMessage="Level is required." Text="*" ControlToValidate="ddlExpertLevel" InitialValue="0">
</asp:RequiredFieldValidator>
This code will work fine but it has an issue. The issue is - If page validation returns false and after that you are trying to change the DropDown's index then it will not work for first time.
Because when you submit the form it will do Form validation. If Validation returns false [indicates not to submit the Form], then you can can't go to server side code. The problem lies here. Since you have used "SelectedstateChanged" event for the Dropdown, the code inside the event handler function will not execute after form validation[when validation will return false].

So How to handle this problem. The solution is very simple, you have to do the following things -

Make CausesValidation="false" for the DropDown.

Remove any validation group for that DropDown, i.e ValidationGroup="none"

Handle client side change event to avoid Blocking of Submit on DropDown item change, i.e onchange="Page_BlockSubmit = false;"

So the final code would look like :
<asp:DropDownList ID="ddlExpertLevel" runat="server" AutoPostBack="True"

CausesValidation="false" ValidationGroup="none" onchange="Page_BlockSubmit = false;"

onselectedindexchanged="ddlExpertLevel_SelectedInd exChanged" >

<asp:ListItem Text="--Select--" Value="0" />

<asp:ListItem Text="Beginner" Value="1" />

<asp:ListItem Text="Intermediate" Value="2" />

<asp:ListItem Text="Advanced" Value="3" />

</asp:DropDownList>

<asp:RequiredFieldValidator ID="reqValQuestionType" runat="server" ErrorMessage="Level is required." Text="*" ControlToValidate="ddlExpertLevel" InitialValue="0">
</asp:RequiredFieldValidator>

Thanks,
Suryakant