Imports System.Data
Imports System.Drawing
Imports System.Web.SessionState
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.DirectoryServices
 
Namespace WebApplication1
    Public Class WebForm2
        Inherits System.Web.UI.Page
        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
        Protected de As DirectoryEntry
        Public ds As DataSet
 
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles MyBase.Load
 
            Dim de As New DirectoryEntry( _
              "LDAP://xxxx:389/OU=xxx,DC=xxxxxxxx,DC=xxxx,DC=xxx", "", "", _
              System.DirectoryServices.AuthenticationTypes.ServerBind)
            Dim src As New DirectorySearcher("(objectclass=User)")
            'DataTable for users
            Dim tbUsers As New DataTable("users")
            'Create Columns for DataTable.
            tbUsers.Columns.Add("cn", System.Type.[GetType]("System.String"))
            ds.Tables.Add(tbUsers)
            'DataTable for properties
            Dim tbProperties As New DataTable("properties")
            'Create Columns for DataTable.
            tbProperties.Columns.Add("PropertyName", System.Type.[GetType]( _
              "System.String"))
            tbProperties.Columns.Add("PropertyValue", System.Type.[GetType]( _
            "System.String"))
            ds.Tables.Add(tbProperties)
 
            src.SearchRoot = de
            src.SearchScope = SearchScope.Subtree
            'src.Filter = ("(objectclass=User)")
 
            For Each res As SearchResult In src.FindAll()
                Dim ien As System.Collections.IDictionaryEnumerator = _
                  res.Properties.GetEnumerator()
                Dim topRow As DataRow = ds.Tables("users").NewRow()
                topRow("cn") = res.Properties("cn")(0)
                ds.Tables("users").Rows.Add(topRow)
            Next
            DataGrid1.DataSource = ds.Tables("users")
            DataGrid1.DataBind()
        End Sub
 
#Region "Web Form Designer generated code"
        Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
 
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub
 
        Private Sub InitializeComponent()
            Me.de = New System.DirectoryServices.DirectoryEntry
            Me.ds = New System.Data.DataSet
            CType(Me.ds, System.ComponentModel.ISupportInitialize).BeginInit()
 
            Me.de.AuthenticationType = _
              System.DirectoryServices.AuthenticationTypes.ServerBind
            Me.de.Path = "LDAP://xxxx:389/OU=xxx,DC=xxxxxxxx,DC=xxxx,DC=xxx"
 
            Me.ds.DataSetName = "NewDataSet"
            Me.ds.Locale = New System.Globalization.CultureInfo("en-US")
            CType(Me.ds, System.ComponentModel.ISupportInitialize).EndInit()
 
        End Sub
 
#End Region
 
    End Class
End Namespace