|
 | 作者: chen1mao [chen1mao]
 论坛用户 |
登录 |
| 1先把已有的删除 net share ipc$ /del net share admin$ /del net share c$ /del …………（有几个删几个） 2禁止建立空连接 ���� ���� 首先运行regedit，找到如下主键[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\LSA]把RestrictAnonymous（DWORD）的键值改为：00000001。 ���� �� 3，禁止自动打开默认共享 ���� ���� 对于server版，找到如下主键[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters]把AutoShareServer（DWORD）的键值改为:00000000。 对于pro版，则是[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters]把AutoShareWks（DWORD）的键值改为:00000000。 如果上面所说的主键不存在，就新建一个再改键值。 不知道VBS可不可以实现？能帮我做一个吗？？最好加上注解，主要想学习学习。谢谢！！！ 我的电子邮件： chen1mao@21cn.com |
| 地主 发表时间: 03/08 22:39 |
 | 回复: yashika [yashika] 论坛用户 |
登录 |
|
建立批处理文件3 |
| B1层 发表时间: 03/14 02:47 |
 | 回复: ma2751_cn [ma2751_cn]  |
登录 |
|
dim WSHShell set WINShell=CreateObject("WScript.shell") dim fso,dc set dc=fso.Drives For Each d i dc dim str WSHShell.run("net share"&driveletter&"$ /delete") WSHShell.run("net share admin$ /delete") WSHShell.run("net share ipc$ /delete") dim WriteREG srt WriteREG=WScript.CreateObject("WScript.shell") WriteREG.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\LSA\AutoShareServer","00000000","DWORD" WriteREG.popup("!!!OK!!!") |
| B2层 发表时间: 03/14 19:20 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 能不能用VBS来关闭IPC$和一些默认共享？