VBScript到底有什么样惊人的本事？我们通过几个例子来说说：
一、VBScript操作注册表
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") ’击活WScript.Shell对象
WSH.POPUP("解锁注册表编辑器!")
’显示弹出信息“解锁注册表编辑器!”
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion
\Policies\System\DisableRegistryTools",0,"REG_DWORD"
’给注册表编辑器解锁
WSH.POPUP("注册表解锁成功!")
’显示弹出信息“注册表解锁成功!”
保存为以.vbs为扩展名的文件，使用时双击即可。
二、VBScript操作文件系统
（以下例子为用VBScript读取一个文件的内容）
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\ping_response.txt", ForReading)
strResponses = objTextFile.ReadAll
Wscript.Echo strResponses
objTextFile.Close
三、VBScript调用外部程序
（以下例子为VBS打开一个记事本程序）
Dim WSHShell’定义变量
set WSHShell=CreateObject("WScript.shell") '创建一个能与操作系统沟通的对象WSHShell
WSHShell.run("notepad.exe") '打开记事本程序
四、VBScript执行WMI管理操作系统
（以下例子是用VBS重启IIS）
Const ADS_SERVICE_STOPPED = 1
Set objComputer = GetObject("WinNT://MYCOMPUTER,computer")
Set objService = objComputer.GetObject("Service","MYSERVICE")
If (objService.Status = ADS_SERVICE_STOPPED) Then
objService.Start
VBS还有许多方面的应用，我就懒得一一列举了，这里提到了四个重要的方面。有了它们，管理一个Windows系统，已经可以入门了。