Dim p As New Process()
        p.StartInfo.FileName = "cmd" '// win9x: command
        p.StartInfo.Arguments = "/c NET VIEW"
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.UseShellExecute = False
        p.Start()
        p.WaitForExit()
        Dim line As String
        While p.StandardOutput.Peek > -1
            line = p.StandardOutput.ReadLine
            If line.StartsWith("\\") Then
                System.Diagnostics.Debug.WriteLine(line)
                '// System.Diagnostics.Trace.WriteLine(line)
            End If
        End While