Public Class Form1
 
    Private hosts As New Hashtable()
 
    Public Class HostEntry
        Public Event EntryModified(ByVal entry As HostEntry)
        Private _Hostname As String
        Public Property Hostname() As String
            Get
                Return _Hostname
            End Get
            Set(ByVal value As String)
                _Hostname = value
                RaiseEvent EntryModified(Me)
            End Set
        End Property
    End Class
 
    Private Sub GetADcomputers()
        Dim search As New DirectorySearcher( _
          ActiveDirectory.Domain.GetCurrentDomain().GetDirectoryEntry(), "(" & _
          "objectClass=computer)")
        Dim entry As New HostEntry
        For Each host As SearchResult In search.FindAll()
            entry.Hostname = host.GetDirectoryEntry().Name.Split("=")( _
              1).ToLower()
            AddHandler entry.EntryModified, AddressOf OnHostEntryModified
            hosts.Add(entry.Hostname, entry)
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        GetADcomputers()
    End Sub
 
    Private Sub OnHostEntryModified(ByVal entry As HostEntry)
        Debug.WriteLine("modified host: " & entry.Hostname)
    End Sub
 
End Class