新建
上传
首页
助手
最?/div>
资料?/div>
工具

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 

 

 

Ͼλ
新建
上传
首页
助手
最?/div>
资料?/div>
工具

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 

 

 

">
新建
上传
首页
助手
最?/div>
资料?/div>
工具

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 

 

 

Ͼλ">
Ͼλ
Ŀ

常用vbs脚本 - 百度文库
新建
上传
首页
助手
最?/div>
资料?/div>
工具

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 

 

 



ļ׺.doc޸Ϊ.docĶ

  • ߼Ӣڶ嵥Ԫlove is a fallacyķ
  • 2020꼶ϲ ¡͸ӦáԪ()(°)
  • 2017ִ⼰
  • 꼶˷ھϰ
  • ͶѧA
  • ߴҵװ
  • ˽̰СѧӢﵥʱļϲὲν̰
  • ѧ봫ѧ
  • ͼṹdz̽
  • 19ơ֤ȯͶѧXҵ

վ

԰ Ͼλ
ϵͷ779662525#qq.com(#滻Ϊ@)