VBS脚本应用-关闭系统默认共享

作者: 来源: 时间:2007-7-11 11:59:35

Dim WSHShell '定义变量
set WSHShell=CreateObject("WScript.shell") '创建一个能与操作系统沟通的对象WSHShell
Dim fso,dc
Set fso=CreateObject("Scripting.FileSystemObject") '创建文件系统对象
set dc=fso.Drives '获取所有驱动器盘符
For Each d in dc
Dim str
WSHShell.run("net share"&d.driveletter &"$ /delete") '关闭所有驱动器的隐藏共享
next
WSHShell.run("net share admin$ /delete")
WSHShell.run("net share ipc$ /delete") '关闭admin$和ipc$管道共享

'未测试

VBS脚本应用-关闭系统默认共享相关文章：

·Linux系统的内存管理技巧总结
·如何让Linux系统的程序在开机时自动运行
·细数Windows操作系统的20条鸡肋
·Linux操作系统下文件解压缩的技巧
·Linux系统下Apache与Tomcat整合的简单方法
·Vista系统中如何看清看个进程详细信息
·调教Vista系统中的“收藏夹链接”
·Linux操作系统下两种自动启动Tomcat的方法
·系统备份与恢复技巧 Ghost程序参数四则
·详细讲解Linux系统下JDK、Tomcat的安装

VBS脚本应用-关闭系统默认共享相关软件：

·万能系统修复器 V2.0正式版
·黄城网络办公系统 V4.6.70
·EasyGhost(系统备份还原工具) V2.0
·Glary Utilities (系统工具集合) v2.1.1.17 多国语言版
·金影电子相册制作系统 2007 V9.0
·WinMyDNS智能DNS解析系统 V1.39 免费版
·系统设置器 V1.0
·天天网络U盘系统 1.02c
·系统美化专家 2007 V6.0.1
·金山毒霸系统清理专家 v2.00 Build20070716

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com