VBScript的用途

VBScript到底有什么样惊人的本事？我们通过几个例子来说说：

一、VBScript操作注册表
（以下例子用途为解锁注册表）

DIM WSH
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
End If

VBS还有许多方面的应用，我就懒得一一列举了，这里提到了四个重要的方面。有了它们，管理一个Windows系统，已经可以入门了。