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()