1 VBS
VBS
脚本病毒的大量流行使我们?/p>
VBS
的功能有了一个全新的认识,现在大家对它也开?/p>
重视起来?/p>
VBS
代码在本地是通过
Windows
Script
Host(WSH)
解释执行的?/p>
VBS
脚本的执
行离不开
WSH
?/p>
WSH
是微软提供的一种基?/p>
32
?/p>
Windows
平台的、与语言无关的脚本解
释机制,它使得脚本能够直接在
Windows
桌面或命令提示符下运行。利?/p>
WSH
,用户能?/p>
操纵
WSH
对象?/p>
ActiveX
对象、注册表和文件系统。在
Windows 2000
下,还可?/p>
WSH
?/p>
访问
Windows NT
活动目录服务?/p>
?/p>
VBS
编写的脚本程序在窗口界面是由
wscript.exe
文件解释执行的,在字符界面由
cscript.exe
文件解释执行?/p>
wscript.exe
是一个脚本语言解释器,
正是它使得脚本可以被执行?/p>
就象执行批处理一样。关?/p>
VBS
大家一定比我熟悉多了,所以再不废话,直接进入主题?/p>
看看我总结?/p>
VBS
在系统安全中的八则妙用吧?/p>
一、给注册表编辑器解锁
用记事本编辑如下内容?/p>
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
’击?/p>
WScript.Shell
对象
WSH.POPUP("
解锁注册表编辑器
!")
’显示弹出信息“解锁注册表编辑?/p>
!
?/p>
WSH.Regwrite"HKCU/Software/Microsoft/Windows/CurrentVersion
/Policies/System/DisableRegistryTools",0,"REG_DWORD"
’给注册表编辑器解锁
WSH.POPUP("
注册表解锁成?/p>
!")
’显示弹出信息“注册表解锁成功
!
?/p>
保存为以
.vbs
为扩展名的文件,使用时双击即可?/p>
二、关?/p>
Win NT/2000
的默认共?/p>
用记事本编辑如下内容?/p>
Dim WSHShell
’定义变?/p>
set WSHShell=CreateObject("WScript.shell")
’创建一个能与操作系统沟通的对象
WSHShell
Dim fso,dc
Set fso=CreateObject("Scripting.FileSystemObject")
’创建文件系统对?/p>
set dc=fso.Drives
’获取所有驱动器盘符
For Each d in dc
Dim str
WSHShell.run("net share"&d.driveletter &"$ /delete")
’关闭所有驱动器的隐藏共?/p>
next
WSHShell.run("net share admin$ /delete")
WSHShell.run("net share ipc$ /delete")
’关?/p>
admin$
?/p>
ipc$
管道共享
现在来测试一下,先打开
cmd.exe
,输?/p>
net share
命令就可以看到自己机子上的共享。双?/p>
执行
stopshare.vbs
后,会看见窗口一闪而过。然后再?/p>
cmd
里输?/p>
net
share
命令,这时?/p>
没有发现共享列表?/p>
三、显示本?/p>
IP
地址
有许多时候,我们需要知道本机的
IP
地址,使用各种软件虽然可以办到,但用
VBS
脚本?/p>
非常的方便。用记事本编辑如下内容:
Dim WS