VBScript，即Visual Basic Scripting Edition，是一种轻量级的脚本语言，由微软开发，主要用于Windows环境下的自动化脚本编写。它简单易学，不需要编译器，可以在Windows的脚本宿主中直接运行。以下是一些实用的VBScript脚本实例，帮助您更好地掌握这门语言。

1. 简单的VBScript程序

以下是一个简单的VBScript程序，用于输出“Hello, World!”：

' 定义变量
Dim hello

' 赋值
hello = "Hello, World!"

' 输出
WScript.Echo hello

运行此脚本，您将在命令行窗口看到输出“Hello, World!”。

2. 脚本中调用其他程序

以下脚本使用run()方法调用记事本程序：

' 创建Shell对象
Set shell = WScript.CreateObject("WScript.Shell")

' 调用记事本程序
shell.Run("notepad", 1, True)

运行此脚本，记事本程序将自动打开。

3. 处理文件和文件夹

以下脚本创建一个名为“TestFolder”的文件夹：

' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 创建文件夹
fso.CreateFolder("TestFolder")

运行此脚本，将在当前目录下创建一个名为“TestFolder”的文件夹。

4. 遍历文件夹

以下脚本遍历当前目录下的所有文件：

' 创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录
Set folder = fso.GetFolder(".")

' 遍历文件夹中的所有文件
For Each file In folder.Files
    WScript.Echo file.Name
Next

运行此脚本，将在命令行窗口输出当前目录下所有文件的名字。

5. 处理数组

以下脚本创建一个一维数组，并遍历输出：

' 创建数组
Dim myArray()
ReDim myArray(1 To 5)

' 赋值
myArray(1) = "One"
myArray(2) = "Two"
myArray(3) = "Three"
myArray(4) = "Four"
myArray(5) = "Five"

' 遍历数组
For i = 1 To 5
    WScript.Echo myArray(i)
Next

运行此脚本，将在命令行窗口输出数组中的所有元素。

6. 使用条件语句

以下脚本根据用户输入的数字输出相应的信息：

' 获取用户输入
Dim input
input = WScript.InputBox("请输入一个数字：")

' 判断数字大小
If input > 10 Then
    WScript.Echo "输入的数字大于10"
ElseIf input < 10 Then
    WScript.Echo "输入的数字小于10"
Else
    WScript.Echo "输入的数字等于10"
End If

运行此脚本，将在输入框中输入数字，然后根据输入的数字输出相应的信息。

通过以上实例，您可以了解到VBScript的基本语法和功能。熟练掌握这些知识后，您可以编写各种实用的脚本，实现自动化任务，提高工作效率。