中国DOS联盟

谢谢eech的测试和lxmxn版主的ncpa.cpl,解决了非经典开始菜单下运行出错的bug。
增加了ronin要求的自动判断勾选状态，本机测试通过，但通用性差，需要的请自行修改。
注：运行参数 i 后没有任何反应是正常状态，因为检测到已经开启共享了不需要执行，反之 参数 u 也一样。

'''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
Next
NetShareState = InStr(DuoString,"{86522D76-E90D-4C8B-957E-FA3603378EA5}")
if Args.Count=0 then
intAnswer = MsgBox("【是】将开启“Microsoft 网络的文件和打印机共享”项，"&Chr(10)&Chr(10)&"【否】将关闭“Microsoft 网络的文件和打印机共享”项。", vbQuestion + vbYesNoCancel, "开/关Microsoft 网络的文件和打印机共享” - baomaboy")
If intAnswer = vbYes and NetShareState = 0 Then
Call Exc
end if
If intAnswer = vbNo and NetShareState <> 0 Then
Call Exc
end if
elseif LCase(Args(0)) = "i" and NetShareState = 0 then
Call Exc
elseif LCase(Args(0)) = "u" and NetShareState <> 0 then
Call Exc
end if
Sub Exc()
WshSHell.Run "control.exe ncpa.cpl"
WScript.Sleep 1000
WshSHell.SendKeys "{DOWN}{UP}"
WScript.Sleep 1000
WshSHell.SendKeys "%FR"
WScript.Sleep 1000
WshSHell.SendKeys "{DOWN}{ }"
WScript.Sleep 1000
WshSHell.SendKeys "{TAB 5}{Enter}"
WScript.Sleep 3000
WshSHell.SendKeys "%FC"
End Sub
Set WshSHell = Nothing
WScript.Quit

　

Last edited by baomaboy on 2008-3-24 at 11:59 PM ]

发现2000下。似乎没效果哦

XPSP2运行后,
开始菜单闪一下
弹出搜索的窗口,
http://photo1.bababian.com/upload/20070513/626501CAA3B8CA18275245B6A0D150A6.jpg
然后自动关闭这个窗口

使用正常，谢谢baomaboy帮我解决了两个大问题

Originally posted by eech at 2007-5-13 12:58:
XPSP2运行后,
开始菜单闪一下
弹出搜索的窗口,
http://photo1.bababian.com/upload/20070513/626501CAA3B8CA18275245B6A0D150A6.jpg
然后自动关闭这个窗口

^_^ 发现你的系统总与大家的有些异样啊，不过这个问题到是看明白了，你应该用的是xp默认的菜单，换成”经典开始“就行了，
等会儿写个两个菜单都适用的本版更新一下，
呵呵 你的测试很好啊，这两个代码更加完善了，适用性更强了。

等待你的新版本哦

Originally posted by ronin at 2007-5-13 14:47:
等待你的新版本哦

已经改进了关于使用非“经典开始菜单”时运行出错的bug

对了,baomaboy兄,你写的脚本是去掉这项的吧

http://photo1.bababian.com/upload/20070513/C345DEC54A6B2CE7ADF054EAA4D5DE47.jpg

Originally posted by eech at 2007-5-13 15:46:
对了,baomaboy兄,你写的脚本是去掉这项的吧

http://photo1.bababian.com/upload/20070513/C345DEC54A6B2CE7ADF054EAA4D5DE47.jpg

是的，你的多了虚拟机。另外发图片时用“插入图片”功能或用代码发大家就可以直接看到了

Last edited by baomaboy on 2007-5-13 at 04:15 PM ]

baomaboy能不能改成勾选和取消勾选两个VBS？这样才方便批处理调用，在控制开通共享和关闭共享时候要分别调用才行

Originally posted by ronin at 2007-5-13 16:39:
baomaboy能不能改成勾选和取消勾选两个VBS？这样才方便批处理调用，在控制开通共享和关闭共享时候要分别调用才行

理论上可以啊，一会儿有时间，我改一下，不用两个VBS，加个判断一个VBS就行。

刚才没看到还要调用，如果不用两个VBS要加参数调用。

我觉得用两个和参数调用都可以

Originally posted by ronin at 2007-5-13 17:18:
我觉得用两个和参数调用都可以

是可以，要么两个VBS文件，要么一个VBS文件加参数调用，

嗯 那个 “判断勾选” 可能要读一下注册表或用到WMI，你可以先试试看。我现在没时间，之后再试。

发现了一个问题，批处理设置IP和其它电脑有重复时候，这个VBS就没有效果