中国DOS联盟

我这里单机没局域网环境所以没法调试，我猜测可能是打开，网络连接属性后，系统弹出一个提示IP地址冲突的错误提示框打断了sendkeys的过程，也许可以加个窗口判断....全是猜测

那就不用去管，这个几率极少，而且应该可以通过批处理来修正

To ronin

加入了自动判断勾选状态....本机测试成功....

测试了，加 i 参数，可以运行，但和以前那个一样，只是在勾选和取消勾选之间运行，加 U 没反应

呵呵 你说的应该是正常现象，有两种情况是没反应的，
1，加参数 i 时，已经检测到勾选，当然不会执行。
2，加参数 u 死，已经检测到关闭了，也当然不会执行。
必须要这样，因为只要执行，勾选状态就会改变。

1，加参数 i 时，已经检测到勾选，当然不会执行
这个情况下，无论有没有勾选都会执行

2，加参数 u 死，已经检测到关闭了，也当然不会执行。
有没有勾选都没有反应

你用的什么系统？可能是文件共享的CLSID由于系统版本或其他原因不一样导致的，看来这样改的通用性不是很好，我想想看能不能用其他办法。另外你用下面的代码在勾选状态下执行，发张截图上来我看看。如下图：

'''NetShare_Power.VBS by baomaboy

'''支持参数 i 开启，u 关闭，如："wscript.exe NetShare_Power.VBS i"

Dim WshSHell

'On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set WshShell = WScript.CreateObject("WScript.Shell")

Set Args = WScript.Arguments

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,"SYSTEM\CurrentControlSet\Services\lanmanserver\Linkage","Route", arrValues

For Each strValue In arrValues

DuoString=DuoString&strValue&vbcr

Next

msgbox DuoString

Set WshSHell = Nothing

WScript.Quit

和你的不一样,系统是winxp sp2


Last edited by ronin on 2007-5-15 at 05:41 PM ]

顶楼的脚本通用性太差，如果用户有多个本地连接怎么办？脚本运行过程中，当前窗口的焦点转移了又如何？

归根结底，只能怪Windows设计的太差，不是所有的鼠标操作都可以转换为命令行方式，总之，wmic设计的还不够完善，否则完全应该可以通过wmic来解决这个问题。

看来这个问题是很难解决

能用DOS命令或修改注册表来勾选"microsoft 网络的文件和打印机共享"和"microsoft网络客户端"吗?这个问题困扰我太长时间了,一直没有大侠帮我解决这个问题,这样能不能实现?在此先谢谢大侠了!