Visual Basic

Form1.Text = blah, blah, blah

Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://your AD server/AD path to search")
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = "(objectClass=Computer)"
 
Dim resEnt As SearchResult
For Each resEnt In mySearcher.FindAll()
    ListBox1.Items.Add(resEnt.GetDirectoryEntry().Name)
Next

Imports System.DirectoryServices<br />
Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
    Private sRootDSE As String<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
        sRootDSE = GetRootDSE()<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.<br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView<br />
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub<br />
        InitializeComponent()<br />
        Me.components = New System.ComponentModel.Container<br />
        Dim resources As System.Resources.ResourceManager = New<br />
        System.Resources.ResourceManager(GetType(Form1))<br />
        Me.TreeView1 = New System.Windows.Forms.TreeView<br />
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)<br />
        Me.SuspendLayout()<br />
        '<br />
        'TreeView1<br />
        '<br />
        Me.TreeView1.ImageList = Me.ImageList1<br />
        Me.TreeView1.Location = New System.Drawing.Point(32, 24)<br />
        Me.TreeView1.Name = "TreeView1"<br />
        Me.TreeView1.Size = New System.Drawing.Size(240, 248)<br />
        Me.TreeView1.TabIndex = 0<br />
        '<br />
        'ImageList1<br />
        '<br />
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)<br />
        Me.ImageList1.ImageStream =<br />
        CType(resources.GetObject("ImageList1.ImageStream"),<br />
        System.Windows.Forms.ImageListStreamer)<br />
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent<br />
        '<br />
        'Form1<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.ClientSize = New System.Drawing.Size(552, 302)<br />
        Me.Controls.Add(Me.TreeView1)<br />
        Me.Name = "Form1"<br />
        Me.Text = "Form1"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Sub GetOU()<br />
<br />
        Dim root As New DirectoryEntry("LDAP://" & sRootDSE)<br />
<br />
        Dim searcher As New DirectorySearcher(root)<br />
<br />
        Dim s As SearchResult<br />
        Dim nodearr() As TreeNode<br />
        searcher.SearchScope = SearchScope.OneLevel<br />
        Dim I As Integer<br />
        Dim cp As IComparer<br />
        cp = New NodeComparer<br />
<br />
        ReDim nodearr(searcher.FindAll.Count - 1)<br />
<br />
        For Each s In searcher.FindAll<br />
            Dim no As New TreeNode(s.GetDirectoryEntry.Properties("Name").Value.ToString, GetObjectClass(s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString), GetObjectClass(s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString))<br />
            no.Tag = s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString()<br />
            nodearr(I) = no<br />
<br />
            I += 1<br />
        Next<br />
        Array.Sort(nodearr, cp)<br />
<br />
        Dim k As TreeNode<br />
<br />
        TreeView1.Nodes.AddRange(nodearr)<br />
<br />
    End Sub<br />
<br />
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        GetOU()<br />
    End Sub<br />
<br />
    Private Sub TreeView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.DoubleClick<br />
<br />
        If TreeView1.SelectedNode.GetNodeCount(True) < 1 Then <br />
            Dim root As New DirectoryEntry("LDAP://" & TreeView1.SelectedNode.Tag.ToString)<br />
            Dim searcher As New DirectorySearcher(root)<br />
            Dim s As SearchResult<br />
            Dim nodearr As TreeNode()<br />
            searcher.SearchScope = SearchScope.OneLevel<br />
            Dim I As Integer<br />
            Dim cp As IComparer<br />
            cp = New NodeComparer<br />
<br />
            ReDim nodearr(searcher.FindAll.Count - 1)<br />
<br />
            For Each s In searcher.FindAll<br />
                Dim no As New TreeNode(s.GetDirectoryEntry.Properties("Name").Value.ToString, GetObjectClass(s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString), GetObjectClass(s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString))<br />
                no.Tag = s.GetDirectoryEntry.Properties("DistinguishedName").Value.ToString()<br />
                nodearr(I) = no<br />
                I += 1<br />
            Next<br />
            Array.Sort(nodearr, cp)<br />
            TreeView1.SelectedNode.Nodes.AddRange(nodearr)<br />
            TreeView1.SelectedNode.Expand()<br />
        End If<br />
<br />
    End Sub<br />
<br />
    Private Function GetRootDSE() As String<br />
<br />
        Dim RootEntry As New DirectoryEntry("LDAP://RootDSE")<br />
        Return RootEntry.Properties("DefaultNamingContext").Value.ToString<br />
        'Add error handling<br />
    End Function<br />
<br />
    Private Function GetObjectClass(ByVal DN As String) As Integer<br />
        Dim m As New DirectoryEntry("LDAP://" & DN)<br />
<br />
        Dim r As New DirectoryEntry(m.NativeObject.schema.ToString)<br />
<br />
        Select Case r.Name<br />
            Case "organizationalUnit"<br />
                Return 0<br />
            Case "computer"<br />
                Return 1<br />
            Case "user"<br />
                Return 2<br />
            Case Else<br />
                Return 0<br />
        End Select<br />
    End Function<br />
<br />
End Class<br />
Class NodeComparer<br />
    Implements IComparer 'Implement the IComparer Interface<br />
    Overloads Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare<br />
        Return CType(x, TreeNode).ImageIndex - CType(y, TreeNode).ImageIndex<br />
    End Function<br />
End Class

navyasri wrote:

vb.net

navyasri wrote:

please post the answer to my mail id