Listar los ordenadores de un dominio Active Directory

Imports System.DirectoryServices 
 
Private Function GetPCList(ByVal DomainPath As String)As ArrayList 
 
 Dim PCList As Arraylist 
 Dim DomainEntry As New DirectoryEntry(DomainPath) 
 Dim Entry As DirectoryEntry 
 
 DomainEntry.Children.SchemaFilter.Add("Computer") 
 For Each entry In DomaineEntry.Children 
     ComputerList.Add(entry.Name) 
 Next 
 
 Return PCList 
 
End Sub