中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » Microsoft 网络的文件和打印机共享→勾选/取消勾选→VBS版

‹ « [1] [2] »

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 16 楼』:

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

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-5-14 11:06

ronin
中级用户

积分 421
发帖 111
注册 2003-8-29
状态离线

『第 17 楼』:

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

2007-5-14 12:29

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 18 楼』:

To ronin

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

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-5-14 16:17

ronin
中级用户

积分 421
发帖 111
注册 2003-8-29
状态离线

『第 19 楼』:

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

2007-5-14 21:48

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 20 楼』:

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

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

2007-5-14 23:26

ronin
中级用户

积分 421
发帖 111
注册 2003-8-29
状态离线

『第 21 楼』:

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

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

2007-5-15 09:09

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『第 22 楼』:

你用的什么系统？可能是文件共享的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