- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- beforeopenproject里加载命令共享文件夹还提示密码 不对 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126930)
-- 发布时间：2018/11/1 9:46:00
-- beforeopenproject里加载命令共享文件夹还提示密码 不对
老师 我 在beforeopenproject里加上代码了 ，可是 每次 在项目里访问共享文件夹都提示密码错误，只有直接打开一次共享文件夹才可以用，您 再帮着看一下。另外我想隐藏共享文件夹加个$结果提示文件路径不对了 有关 怎么办？
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.0.3\\ ""2841"" /user:""www""")
p.StandardInput.WriteLine("exit")
-- 发布时间：2018/11/1 9:58:00
--
你在命令窗口里面执行cmd，打开一个黑白窗口后，输入下面命令，按是否报错
net use \\\\192.168.0.3 2841 /user:www
[此贴子已经被作者于2018/11/1 9:58:27编辑过]
-- 发布时间：2018/11/1 10:00:00
--
如果2楼的命令执行不报错，那就改成比如
p.StandardInput.WriteLine( "net use \\\\192.168.0.3 2841 /user:www")
-- 发布时间：2018/11/1 10:06:00
--
dou都试过不行的 ，执行cmd 正常，我想干脆让客户端记住访问凭据，然后用组策略限制可以访问共享的 电脑吧，您看看 还有没有跟好 的解决办法。
[此贴子已经被作者于2018/11/1 10:06:36编辑过]
-- 发布时间：2018/11/1 10:23:00
--
以下是引用Engineer1在2018/11/1 10:06:00的发言：
dou都试过不行的 ，执行cmd 正常，我想干脆让客户端记住访问凭据，然后用组策略限制可以访问共享的 电脑吧，您看看 还有没有跟好 的解决办法。
dou都试过不行的 ，执行cmd 正常，我想干脆让客户端记住访问凭据，然后用组策略限制可以访问共享的 电脑吧，您看看 还有没有跟好 的解决办法。
[此贴子已经被作者于2018/11/1 10:06:36编辑过]
在cmd里面，执行什么命令是正常的？贴出此命令看看
-- 发布时间：2018/11/1 10:28:00
--
此主题相关图片如下：qq截图20181101102635.png
-- 发布时间：2018/11/1 10:30:00
--
代码那里改成这样测试
p.StandardInput.WriteLine( "net use \\\\192.168.0.3 2841 /user:www")
-- 发布时间：2018/11/1 10:57:00
--
老师还是不行，只有记住访问凭据才行
.NET Framework 版本：2.0.50727.8798
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
指定的网络密码不正确。
-- 发布时间：2018/11/1 10:59:00
--
拷贝这个代码测试
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 * /del /y")
p.StandardInput.WriteLine( "net use \\\\192.168.0.3 2841 /user:www")
p.StandardInput.WriteLine("exit")
-- 发布时间：2018/11/1 10:59:00
--
不然，请贴出完整的代码啊