Dim info As New ProcessStartInfo("net", "share test=d:\testshare /grant:everyone,full")
With info
.RedirectStandardOutput = True
.UseShellExecute = False
.CreateNoWindow = True
End With
Dim proc As Process = Process.Start(info)
Me.ResultTextBox.Text = proc.StandardOutput.ReadToEnd
proc.Dispose()