Public Shared Function GetComputerList() As ArrayList
Dim list As New ArrayList() Dim root As New DirectoryEntry("WinNT:") Dim domains As DirectoryEntries = root.Children domains.SchemaFilter.Add("domain") For Each domain As DirectoryEntry In domains Dim iphe As IPHostEntry = Nothing Try iphe = Dns.GetHostByName(computer.Name) Catch Continue Try End Try Next
private void EnumComputers()
{
using(DirectoryEntry root = new DirectoryEntry("WinNT:"))
{
foreach(DirectoryEntry domain in root.Children)
{
Console.WriteLine("Domain | WorkGroup: "+domain.Name);
foreach(DirectoryEntry computer in domain.Children)
{
Console.WriteLine("Computer: "+computer.Name);
}
}
}
}
接分
Dim list As New ArrayList()
Dim root As New DirectoryEntry("WinNT:")
Dim domains As DirectoryEntries = root.Children
domains.SchemaFilter.Add("domain")
For Each domain As DirectoryEntry In domains
Dim iphe As IPHostEntry = Nothing
Try
iphe = Dns.GetHostByName(computer.Name)
Catch
Continue Try
End Try
Next
Return list
End Function http://topic.csdn.net/u/20090928/17/fa15f7ab-f562-4d53-a57d-3caf17ace5c5.html
{
using(DirectoryEntry root = new DirectoryEntry("WinNT:"))
{
foreach(DirectoryEntry domain in root.Children)
{
Console.WriteLine("Domain | WorkGroup: "+domain.Name);
foreach(DirectoryEntry computer in domain.Children)
{
Console.WriteLine("Computer: "+computer.Name);
}
}
}
}