[hminfo]

كود :

Imports System.Management
Imports System.Collections.Specialized
Imports System.DirectoryServices.ActiveDirectory
Imports System.DirectoryServices
 Dim root As New DirectoryEntry("WinNT:")
       Dim parent As DirectoryServices.DirectoryEntries
       parent = root.Children
       Dim d As DirectoryEntries = parent
       For Each complist As DirectoryEntry In parent
           For Each c As DirectoryEntry In complist.Children
               If (c.Name <> "Schema") Then
                   ComboBox1.Items.Add(c.Name)
               End If
           Next
       Next