|
| 作者: z路[ma2751_cn] [ 邮箱: ma2752_cn@163.com 主页: 鏆傛椂鍏抽棴 ] | 发表日期: 2003-05-07 浏览次数: 2807 |
| 近几天发现有好多朋友问起怎么关闭默认共享，一时有空就自己半生不熟的脚本编程为给大家写个脚本。 众所周知，在win NT/2K中能在命令提示符下用：net share 服务名关闭服务，做为默认共享在WIN中也做为一种服务运行。但重新启动计算机后共享又会开启，以下代码能够关闭默认共享且开机自动关闭。 Dim fs,dise,ds,WSH '定义变量 Set WSH=CreateObject("WScript.shell") '创建能与系统沟通的对象 Set fs=CreateObject("Script.FileSystemObject") '创建文件系统对象 Set dise=fs.Drives '获取启动器的集合 For Each ds in dise WSH.run("net share "&ds.driveletter&"$ /delete") '关闭C$等共享 Next WSH.run("net share admin$ /delete") '关闭admin$共享 WSH.run("net share ipc$ /delete") '关闭ipc$共享 Dim dirsys,FName Set dirsys=fs.GetSpecialFoldor(1) '获得系统目录,0为windows目录 Set FName=fs.GetFile(Wscript.ScriptFullName) '得到自己的路径 If (fs.fileexists(dirsys&"stopshare.vbs") '如果自己在系统目录 Then '就什么都不做 Else FName.copy(dirsys&"stopshare.vbs") ''否则就复制自己到系统目录 WSH.RegWrite"HKLMsoftwaremicrosoftwindowsCurrentVersion\run",dirsys&"stopshare.vbs" '修改注册表让自己每次启动都运行 把以上代码保存为stopshare.vbs然后运行,注意:一定要是stopshare.vbs文件名.!!另求如何用脚本得到自己文件名的代码~~~用什么对象-属性或方法???请告知!谢~~ 其实直接修改注册表也能关闭默认共享,而且重启也不会再次打开.以下是详细代码~~ Dim WSH Set WSH=WScript.CreateObject("WScript.shell") WSH.RegWrite"HKLMsystemCurrentControlsetserviceslanmanserverparametersAutoshareserver",0,"REG_DWORD" '关闭C$等共享 WSH.RegWrite"HKLMsystemCurrentControlsetserviceslanmanserverparametersAutoShareWKS",0,"REG_DWORD" '关闭admin$共享 WSH.RegWrite"HKLMsystemCurrentControlsetcontrollsa\restrictanonymous",2,"REG_DWORD" '当值为0时开启IPC$共享,值为1时可使匿名用户无法列举本机用户列表,值为2时可使匿名用户无法连接本机IPC$共享' ------------------------ 帖子发表时间:05/03 18:00 RobinHood[virusonic]回复道： 如果c:winnt也被默认共享，怎么办？ z路[ma2751_cn]回复道： c:winnt也被默认共享？？？/ 世纪之星[kv3000]回复道： 请问别人能否用net share \\ipipc$ 呢？ z路[ma2751_cn]回复道： 能，只要别人得到你的shell~~~ 世纪之星[kv3000]回复道： 那我怎么才可以防止类似发生? z路[ma2751_cn]回复道： net share \\ipipc$ 世纪之星[kv3000]回复道： 呵呵所以我问一下！ 无泪[aa11]回复道： 搞得我还以为有这个命令呢~ |
|
20CN缃戠粶瀹夊叏灏忕粍鐗堟潈鎵鏈
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
璁哄潧绋嬪簭缂栧啓锛NetDemon
绮CP澶05087286鍙
标题: 用脚本编程（WindowsScriptHost）关闭NT/2K默认共享~~ [原创]