主题：登录提示数据源

试试这样，看信不信

 

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.1.240 2014 /user:administrator")
p.StandardInput.WriteLine("exit")
system.threading.thread.sleep(1000)

你在 【开始】-> 【运行】-> 输入cmd，弹出的窗口，输入 net use \\192.168.1.240 2014 /user:administrator 后提示什么？

你输入的明显不对，请直接复制粘贴到cmd窗口去执行

 

net use \\192.168.1.240 2014 /user:administrator

右键菜单选“粘贴”

要在客户端电脑执行这个命令。另外客户端电脑IP是192.168.1.开头的吗