应群内朋友的要求在此我写一个利用WSH关闭系统默认共享的代码，其实WSH有很多黑客用来写病毒的说，好坏在一线之
隔，我把它用到好的地方咯~~~~HOHO
这个是我贴在木马原理一文中的，怕有人没有看到，所以就单独写出来了。
------------------------------CUT--------------------------------------------
dim o
set o = Create
Object("WScript.shell") '建立一个对象
dim fso,dc
Set fso = Create
Object("Scripting.FileSystem
Object") '创建文件系统对象
set dc = fso.Drives '获取所有驱动器盘符
for Each d in dc
dim str
o.run("net share " & d.driveletter & "$ /delete") '关闭所有驱动的隐藏共享
next
o.run("net share admin$ /delete")
o.run("net share ipc$ /detete") '关闭admin$和ipc$管道共享
dim dirsystem
set dirsystem=fso.GetSpecialFolder(1) ;取得系统根目录
set name=fso.GetFile(WScript.ScriptFullName) ;取得脚本文件名
if (fso.fileexists(dirsystem &"\stopshare.vbs")) then ;判断系统根目录是否存在上面的文件保存的文件名.vbs
else
name.Copy(dirsystem & "\stopshare.vbs") 把这个脚本拷贝到系统根目录，文件名为上面的文件保存的文件名.vbs
o.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\stopshare",dirsystem&"\stopshare.vbs" ;写入注册表自动启动键值
end if
------------------------------CUT--------------------------------------------
着要保存成.vbs的文件运行一遍就可以自动关闭默认共享，只适用于2000/NT系统。
关闭XP默认共享
:star
@if {%1}=={} goto Usage
@if "%1"=="/?" goto Usage
@echo.
@Echo 正在删除共享%1$
@net share %1$ /delete
@if {%2}=={} goto StopServer
@Echo 正在删除共享%2$
@net share %2$ /delete
@if {%3}=={} goto StopServer
@Echo 正在删除共享%3$
@net share %3$ /delete
@if {%4}=={} goto StopServer
@Echo 正在删除共享%4$
@net share %4$ /delete
@if {%5}=={} goto StopServer
@Echo 正在删除共享%5$
@net share %5$ /delete
@if {%6}=={} goto StopServer
@Echo 正在删除共享%6$
@net share %6$ /delete
@if {%7}=={} goto StopServer
@Echo 正在删除共享%7$
@net share %7$ /delete
@if {%8}=={} goto StopServer
@Echo 正在删除共享%8$
@net share %8$ /delete
@if {%9}=={} goto StopServer
@Echo 正在删除共享%9$
@net share %9$ /delete
:StopServer
@echo.
@echo 正在更改注册表...
@echo Windows Registry Editor Version 5.00> c:stopshare.reg
@echo [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServiceslanmanserverparameters]>> c:stopshare.reg
@echo "AutoShareWks"=dword:00000000>> c:stopshare.reg
@echo "AutoShareServer"=dword:00000000>> c:stopshare.reg
@regedit /s c:stopshare.reg
@echo 注册表更改完成
@echo.
@echo 正在清理临时文件
@del c:stopshare.reg
@echo 临时文件清理完成
@echo.
@echo 正在刷新共享...
@net stop Server
@net start Server
@echo 刷新完成
@echo.
@echo 指定共享已经删除
@echo.
@goto end
:Usage
@echo.
@echo 功能：
@echo 1、取消admin$及C$等磁盘共享、禁止自动共享
@echo 版本：1.0
@echo 创建日期：2002.07.15
@echo.
@echo 命令格式
@echo DelShare [C] [D] [E] ... [Admin] [Print]
@echo 例子
@echo DelShare C D E F Admin Print
@echo.
@echo 请按任意键继续....
@pause>nul
:end
