Array
(
)

Comando MSDOS via VB.NET

Facc
   - 06 mar 2009

Estou fazendo assim, funciona mas preciso resolver um problema:

#C骴igo

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
   - 09 mar 2009

ninguem?


Rafael Cabral
   - 10 mar 2009

J tentou isso?

#C骴igo


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


Atenciosamente,

Rafael Cabral