Dim p As New Process()
        p.StartInfo.FileName = "net.exe"
        p.StartInfo.Arguments = "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

_____________________________________
Overbenny

(Wer den Overlord aus C&C Generals kennt,
wei? wie mein Nick zustande kam.)