Dim p As new Process() p.StartInfo.FileName = "cmd.exe" p.StartInfo.UseShellExecute = False '关闭Shell的使用 p.StartInfo.RedirectStandardInput = True '重定向标准输入 p.StartInfo.RedirectStandardOutput = True '重定向标准输出 p.StartInfo.RedirectStandardError = True '重定向错误输出 p.StartInfo.CreateNoWindow = True '设置不显示窗口 p.Start() p.StandardInput.WriteLine("net use \\192.168.1.211\共享的文件夹名 密码 /user:用户名") p.StandardInput.WriteLine("exit") 'Dim strRst As String = p.StandardOutput.ReadToEnd()
|