This code sample is used to get all the names of computers that are there in your network.
You need to Iterate with the Children entries of the Directory Entries.
The Below Sample is in Console Application
Sub Main()
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
Console.WriteLine(c.Name)
End If
Next
Next
End Sub
The Same code can be used to Add the Names of the Network Computers in a Combobox or a ListBox
For Each c As DirectoryEntry In complist.Children
If (c.Name <> "Schema") Then
ComboBox1.Items.Add(c.Name)
End If
Next
Next
Regards
Hefin Dsouza