妙用VBS脚本保护Windows系统安全性[Windows安全]

 　　VBS脚本病毒的大量风行使我们对VBS的功效有了一个全新的熟习,目前大家对它也开始器重起来.VBS代码在本地是通过Windows Script Host(WSH)注释履行的.VBS脚本的履行离不开WSH,WSH是微软供应的一种基于32位Windows平台的、与语言无关的脚本注释机制,它使得脚本可以直接在Windows桌面或号令提醒符下运行.操纵WSH,用户可以操作WSH对象、ActiveX对象、注册表和文件系统.在Windows 2000下,还可用WSH来拜候Windows NT活动目录服务.

　　用VBS编写的脚本程序在窗口界面是由wscript.exe文件注释履行的,在字符界面由cscript.exe文件注释履行.wscript.exe是一个脚本语言注释器,恰是它使得脚本可以被履行,就象履行批处理一样.关于VBS大家一定比我熟习多了,所以再不废话,直接进入主题,看看我总结的VBS在系统安全中的妙用吧.

　　1、给注册表编辑器解锁

　　用记事本编辑以下内容:

　　DIM WSH

　　SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '击活WScript.Shell对象

　　WSH.POPUP("解锁注册表编辑器!")

　　'显示弹出信息“解锁注册表编辑器!”

　　1. WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\

　　DisableRegistryTools",0,"REG_DWORD"

　　'给注册表编辑器解锁

　　WSH.POPUP("注册表解锁成功!")

　　'显示弹出信息“注册表解锁成功!”

　　保存为以.vbs为扩大名的文件,利用时双击便可.

　　2、关闭Win NT/2000的默许同享

　　用记事本编辑以下内容:

　　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$管道同享

　　目前来测试一下,先翻开cmd.exe,输入net share号令便可以看到自己机子上的同享.双击履行stopshare.vbs后,会瞥见窗口一闪而过.然后再在cmd里输入net share号令,这时刻没有发现同享列表了

　　1. New Roman">

　　以上是“妙用VBS脚本保护Windows系统安全性[Windows安全]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：