Foxtable(狐表)用户栏目专家坐堂 → beforeopenproject里加载命令共享文件夹还提示密码 不对


  共有3140人关注过本帖树形打印复制链接

主题:beforeopenproject里加载命令共享文件夹还提示密码 不对

帅哥哟,离线,有人找我吗?
Engineer1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
beforeopenproject里加载命令共享文件夹还提示密码 不对  发帖心情 Post By:2018/11/1 9:46:00 [显示全部帖子]

老师 我 在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")

 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/11/1 10:06:00 [显示全部帖子]

dou都试过不行的 ,执行cmd 正常,我想干脆让客户端记住访问凭据,然后用组策略限制可以访问共享的 电脑吧,您看看 还有没有跟好 的解决办法。

[此贴子已经被作者于2018/11/1 10:06:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/11/1 10:28:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181101102635.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/11/1 10:57:00 [显示全部帖子]

老师还是不行,只有记住访问凭据才行
.NET Framework 版本:2.0.50727.8798
Foxtable 版本:2018.10.9.1
错误所在事件:
详细错误信息:
指定的网络密码不正确。


 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/11/1 11:47:00 [显示全部帖子]

还是不行,代码就是以上的

 回到顶部
帅哥哟,离线,有人找我吗?
Engineer1
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:236 积分:1922 威望:0 精华:0 注册:2017/10/1 12:15:00
  发帖心情 Post By:2018/11/1 12:51:00 [显示全部帖子]

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\ ""28410035qqQ"" /user:""wb""")
p.StandardInput.WriteLine("exit")

执行窗口的
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 \\win-p589p7dh28g 28410035qqQ /user:wb")
p.StandardInput.WriteLine("exit")

 回到顶部