List of Active Computers on Network
-
How would i get a list of all Active Computers on a network? All I need are the computer names. Method that i am currently using lists all computers even if they're not currently connected to the network. Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://CORP") Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry) Dim resEnt As SearchResult mySearcher.Filter = ("(objectClass=computer)") TotalNodesLabel.Text = "Total computers: " + mySearcher.FindAll.Count.ToString For Each resEnt In mySearcher.FindAll() If IsNothing(resEnt) = False Then ListOfNodesListBox.Items.Add(resEnt.GetDirectoryEntry().Name.ToString()) End If Next I was hoping to get a list of active computers, this method lists all computers even if they're not currently connected to the network. Thanks Sumit Domyan
-
How would i get a list of all Active Computers on a network? All I need are the computer names. Method that i am currently using lists all computers even if they're not currently connected to the network. Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://CORP") Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry) Dim resEnt As SearchResult mySearcher.Filter = ("(objectClass=computer)") TotalNodesLabel.Text = "Total computers: " + mySearcher.FindAll.Count.ToString For Each resEnt In mySearcher.FindAll() If IsNothing(resEnt) = False Then ListOfNodesListBox.Items.Add(resEnt.GetDirectoryEntry().Name.ToString()) End If Next I was hoping to get a list of active computers, this method lists all computers even if they're not currently connected to the network. Thanks Sumit Domyan
You'll probably have to go down the list your getting and ping them all to determine which ones are live and which are not. RageInTheMachine9532 "...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome