06/03/2009

Comando MSDOS via VB.NET

Estou fazendo assim, funciona mas preciso resolver um problema:

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


[img:b6be5cd882]http://i498.photobucket.com/albums/rr350/faccruz/MSDOS.jpg[/img:b6be5cd882]

como incluir a senha qndo pede?? essa a minha duvida, ou ent鉶, capturar qndo der erro

Lembrando que eu estou acesando via BROWSER


Facc

Respostas

09/03/2009

Facc

ninguem?


Responder Citar

10/03/2009

Rafael Cabral

J tentou isso?

Process.Start("cmd.exe /c net use \\126.0." & IPServe & ".1 /user:vendas")


Atenciosamente,

Rafael Cabral


Responder Citar