Windows系统下VBScript脚本编写入门：从Hello World到文件操作

Windows系统下VBScript脚本编写实战：从基础到高级应用

在Windows系统管理中，自动化脚本一直是提升效率的利器。VBScript作为微软原生支持的脚本语言，虽然在新系统中逐渐被PowerShell取代，但在遗留系统维护、特定场景自动化中仍然发挥着重要作用。本文将带您从零开始掌握VBScript的核心技能，包括基础语法、文件操作、系统管理等实用技巧。

1. VBScript基础入门

1.1 环境准备与执行方式

VBScript作为Windows内置脚本引擎，无需额外安装即可使用。创建一个简单的VBScript脚本只需要三个步骤：

1. 新建文本文件并重命名为.vbs扩展名
2. 使用记事本或其他文本编辑器编写脚本内容
3. 双击运行或通过命令行执行

VBScript有两种主要的执行方式：

提示：在开发调试阶段，建议使用cscript方式执行，这样可以在命令行中看到错误信息。

1.2 第一个VBScript程序

让我们从经典的"Hello World"开始：

' 这是单行注释 MsgBox "Hello, VBScript World!", vbInformation, "欢迎"

这段代码会弹出一个信息对话框，包含标题和图标。VBScript的语法特点包括：

• 不区分大小写
• 使用单引号'进行注释
• 语句可以写在一行，也可以换行
• 变量使用Dim声明，但不是必须的

2. VBScript核心语法

2.1 变量与数据类型

VBScript是弱类型语言，变量可以存储任何类型的数据。常见数据类型包括：

• String：文本数据，如"Hello"
• Integer：整数，如42
• Boolean：逻辑值，True或False
• Date：日期时间值
• Object：对象引用

变量声明和使用示例：

Dim userName, userAge userName = "张三" userAge = 30 ' 动态类型示例 Dim dynamicVar dynamicVar = "文本" ' 现在是字符串 dynamicVar = 123 ' 现在是数字

2.2 流程控制结构

VBScript支持标准的流程控制语句，包括条件判断和循环：

条件判断示例：

Dim score score = InputBox("请输入您的分数：") If IsNumeric(score) Then score = CInt(score) Select Case score Case 90 To 100 MsgBox "优秀" Case 80 To 89 MsgBox "良好" Case 60 To 79 MsgBox "及格" Case Else MsgBox "不及格" End Select Else MsgBox "请输入有效的数字分数！" End If

循环结构示例：

' For循环 For i = 1 To 5 WScript.Echo "循环次数：" & i Next ' While循环 Dim counter counter = 0 Do While counter < 3 WScript.Echo "While循环：" & counter counter = counter + 1 Loop

3. 文件系统操作实战

3.1 FileSystemObject对象使用

VBScript通过FileSystemObject(FSO)对象模型提供文件系统访问能力。以下是常见操作：

' 创建FSO对象 Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ' 检查文件是否存在 If fso.FileExists("C:\test.txt") Then WScript.Echo "文件已存在" Else ' 创建新文件并写入内容 Dim file Set file = fso.CreateTextFile("C:\test.txt", True) file.WriteLine "这是第一行内容" file.WriteLine "这是第二行内容" file.Close End If ' 读取文件内容 If fso.FileExists("C:\test.txt") Then Set file = fso.OpenTextFile("C:\test.txt", 1) ' 1表示只读 Do Until file.AtEndOfStream WScript.Echo file.ReadLine Loop file.Close End If

3.2 文件夹与文件管理

VBScript可以方便地进行文件夹和文件管理操作：

Dim fso, folder, files, subfolders Set fso = CreateObject("Scripting.FileSystemObject") ' 创建文件夹 If Not fso.FolderExists("C:\MyFolder") Then Set folder = fso.CreateFolder("C:\MyFolder") End If ' 遍历文件夹内容 Set folder = fso.GetFolder("C:\MyFolder") Set files = folder.Files Set subfolders = folder.SubFolders WScript.Echo "文件列表：" For Each file In files WScript.Echo file.Name & " - " & file.Size & "字节" Next WScript.Echo "子文件夹列表：" For Each subfolder In subfolders WScript.Echo subfolder.Name Next

4. 高级应用场景

4.1 注册表操作

VBScript可以通过WScript.Shell对象访问Windows注册表：

Dim shell Set shell = CreateObject("WScript.Shell") ' 读取注册表值 On Error Resume Next ' 避免错误中断脚本 Dim regValue regValue = shell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MyApp") If Err.Number <> 0 Then WScript.Echo "注册表键不存在或访问被拒绝" Err.Clear Else WScript.Echo "注册表值：" & regValue End If On Error GoTo 0 ' 写入注册表值 shell.RegWrite "HKCU\Software\MyApp\Settings\Timeout", 30, "REG_DWORD"

注意：修改注册表可能影响系统稳定性，操作前建议备份注册表。

4.2 系统管理与自动化

VBScript可以用于各种系统管理任务，例如：

服务管理：

Dim serviceName, computer serviceName = "Spooler" ' 打印后台处理程序服务 computer = "." ' 本地计算机 Dim objWMIService, colServices Set objWMIService = GetObject("winmgmts:\\" & computer & "\root\cimv2") Set colServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & serviceName & "'") For Each objService in colServices WScript.Echo "服务名称: " & objService.Name WScript.Echo "显示名称: " & objService.DisplayName WScript.Echo "状态: " & objService.State WScript.Echo "启动类型: " & objService.StartMode ' 启动服务 If objService.State <> "Running" Then objService.StartService() WScript.Echo "服务已启动" End If Next

进程管理：

' 结束指定进程 Dim processName processName = "notepad.exe" Dim objWMIService, colProcesses Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & processName & "'") For Each objProcess in colProcesses objProcess.Terminate() WScript.Echo "已终止进程：" & processName Next

5. 错误处理与调试技巧

5.1 错误处理机制

VBScript提供基本的错误处理能力：

On Error Resume Next ' 开启错误处理 ' 可能出错的代码 Dim result result = 1 / 0 ' 除零错误 If Err.Number <> 0 Then WScript.Echo "错误号：" & Err.Number WScript.Echo "错误描述：" & Err.Description WScript.Echo "错误源：" & Err.Source Err.Clear ' 清除错误 End If On Error GoTo 0 ' 关闭错误处理

5.2 调试与日志记录

在脚本中添加日志功能可以帮助调试：

Sub WriteLog(message) Dim fso, logFile Set fso = CreateObject("Scripting.FileSystemObject") ' 以追加模式打开日志文件 Set logFile = fso.OpenTextFile("C:\script.log", 8, True) ' 8=追加模式 logFile.WriteLine Now & " - " & message logFile.Close End Sub ' 使用日志函数 WriteLog "脚本开始执行" ' 业务逻辑代码 On Error Resume Next Dim obj Set obj = CreateObject("NonExistent.Object") If Err.Number <> 0 Then WriteLog "创建对象失败：" & Err.Description Err.Clear End If WriteLog "脚本执行完成"

在实际项目中，我经常使用这种日志记录方式来跟踪脚本执行情况，特别是在计划任务中运行的脚本，日志文件成为了解脚本运行状态的重要依据。