Get a list of computers

Here is a very simple way to get a list.


Dim Net_view As New Process() 
        Dim network As String = Application.StartupPath & "
etwork.txt" 

        Net_view.StartInfo.FileName = "cmd.exe" 
        Net_view.StartInfo.Arguments = "/C cd " & " && net view >> " & Chr(34) & _ 
           network & Chr(34) & " && exit" 

        Net_view.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 
        Net_view.StartInfo.CreateNoWindow = True 
        Net_view.waitforexit()