中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]用脚本或者批处理去除网络的文件和打印机共享
作者:
标题: [求助]用脚本或者批处理去除网络的文件和打印机共享 上一主题 | 下一主题
ronin
中级用户




积分 421
发帖 111
注册 2003-8-29
状态 离线
『楼 主』:  [求助]用脚本或者批处理去除网络的文件和打印机共享

XP系统默认安装在本地连接加载了Microsoft 网络的文件和打印机共享,对家庭用户安全性和启动速度都有很大影响,打算用批处理来解决注册表问题,看看大家有没有这方面的经验

2007-4-22 23:44
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace
下面有个print你看看是不是……把这个关了貌似不可以共享了吧?
你自己的话把协议卸载了看看可以么?

2007-4-23 00:08
查看资料  发短消息 网志   编辑帖子  回复  引用回复
ronin
中级用户




积分 421
发帖 111
注册 2003-8-29
状态 离线
『第 3 楼』:  

应该不对
我打算写个批处理来控制是否开通共享,如果卸载了协议就不行

2007-4-23 03:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
flyinspace
银牌会员





积分 1206
发帖 517
注册 2007-3-25
状态 离线
『第 4 楼』:  

关闭几个服务而已。。。

net stop "你要停止的服务"

nc stop "你要停止的服务“

net start "你要开始的服务“

几句话的问题。



知,不觉多。不知,乃求知
2007-4-23 04:09
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 5 楼』:  

还不如开关 lanmanserver

2007-4-24 00:09
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
ronin
中级用户




积分 421
发帖 111
注册 2003-8-29
状态 离线
『第 6 楼』:  

启动速度都有很大影响,会增加67秒的启动时间

2007-4-24 03:38
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
bjsh
银牌会员





积分 2000
发帖 621
注册 2007-1-1
状态 离线
『第 7 楼』:  

sc stop Spooler
sc config Spooler start= disabled

还可以把server服务关掉

sc stop lanmanserver
sc config lanmanserver  start= disabled

2007-4-24 04:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
eech
高级用户




积分 906
发帖 346
注册 2006-7-10
状态 离线
『第 8 楼』:  



  Quote:
Originally posted by bjsh at 2007-4-24 04:08:
sc stop Spooler
sc config Spooler start= disabled

还可以把server服务关掉

sc stop lanmanserver
sc config lanmanserver  start= disabled

亲测,没有!

2007-4-29 12:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
fhcweb
新手上路





积分 14
发帖 8
注册 2007-3-7
状态 离线
『第 9 楼』:  

这个问题我也找了N久的解决办法了,一直没有合适的解决办法,除了手工卸载以外!

2008-3-8 16:48
查看资料  发短消息 网志   编辑帖子  回复  引用回复
fhcweb
新手上路





积分 14
发帖 8
注册 2007-3-7
状态 离线
『第 10 楼』:  

已经找到了,不过需要再完善一下!
Dim WshSHell
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
WshSHell.Run "control.exe ncpa.cpl"
WScript.Sleep 500
WshSHell.SendKeys "{DOWN}{UP}"
WScript.Sleep 500
WshSHell.SendKeys "%FR"
WScript.Sleep 500
WshSHell.SendKeys "{DOWN}{ }"
WScript.Sleep 500
WshSHell.SendKeys "%U"
WScript.Sleep 500
WshSHell.SendKeys "Y"
WScript.Sleep 10000
WshSHell.SendKeys "{TAB 5}{Enter}"
WScript.Sleep 3000
WshSHell.SendKeys "%FC"
Set WshSHell = Nothing
WScript.Quit

[ Last edited by fhcweb on 2008-3-8 at 06:22 PM ]

2008-3-8 18:06
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: