Fórum Comando MSDOS via VB.NET #20010

Dim CMDProcesso As New Process
        Dim CMDInfoInicio As New System.Diagnostics.ProcessStartInfo

        ´´Inicia novo prompt de comando
        CMDInfoInicio.FileName = "cmd"

        ´´Redireciona o Input
        CMDInfoInicio.RedirectStandardInput = True

        ´´Redireciona o OutPut
        CMDInfoInicio.RedirectStandardOutput = True

        ´´Requerido para o redirecionamento
        CMDInfoInicio.UseShellExecute = False

        ´´Seta Informações de inicialização
        CMDProcesso.StartInfo = CMDInfoInicio

        ´´Inicia processo
        CMDProcesso.Start()

        ´´Declara STREAMS de Leitura e Escrita
        ´´E os seta como Input e OutPut do processo

        Dim SR As System.IO.StreamReader = CMDProcesso.StandardOutput
        Dim SW As System.IO.StreamWriter = CMDProcesso.StandardInput

        ´´Envia Comando
        SW.WriteLine("net use \\126.0." & IPServe & ".1 /user:vendas")

        ´´Envia comando para Sair
        SW.WriteLine("exit")

        ´´Retorna Resultado do prompt
        MsgBox(SR.ReadToEnd) -> Apenas para mostrar a mensagem... depois irei comentar

        ´´Fecha Streams
        SW.Close()
        SR.Close()