VBS脚本常用经典代码：从入门到实用的10个必收藏片段

作为Windows系统自带的脚本语言，VBScript（简称VBS）凭借轻量、无需编译的特性，成为运维、办公自动化的“小能手”。无论你是刚接触脚本的新手，还是需要快速解决问题的老鸟，掌握几个经典VBS代码片段都能让效率翻倍。今天就整理10个高频场景的实用代码，附上注释和使用说明，收藏起来随时用！

1. 弹窗提示：最基础的交互

想快速测试脚本是否运行？弹窗是第一步。这行代码会弹出带“确定”按钮的提示框，适合调试或简单通知：

MsgBox "Hello, VBScript!", vbInformation, "提示"

参数说明：vbInformation是信息图标（换成vbExclamation是感叹号，vbCritical是错误图标），最后是窗口标题。

2. 获取用户输入：收集关键信息

需要用户输入内容？用InputBox实现交互，比如让用户输入姓名：

Dim name
name = InputBox("请输入你的姓名：", "用户输入")
If name <> "" Then
    MsgBox "你好，" & name & "！", vbOKOnly
End If

注意：用户点击“取消”时返回空字符串，所以要加判断避免报错。

3. 遍历文件夹：批量处理文件

运维中常需要遍历文件夹里的文件？这个代码能列出指定路径下的所有文件：

Dim fso, folder, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Test") ' 替换为你的文件夹路径
For Each file In folder.Files
    MsgBox "文件名：" & file.Name & vbCrLf & "大小：" & file.Size & "字节"
Next
Set fso = Nothing

想遍历子文件夹？加上folder.SubFolders循环即可。

4. 文件操作：创建、复制、删除

VBS操作文件超方便，比如新建文本文件并写入内容：

Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\Test\test.txt", True) ' True表示覆盖现有文件
file.WriteLine "这是VBS写入的内容"
file.Close
Set fso = Nothing

复制文件用fso.CopyFile "源路径", "目标路径"，删除用fso.DeleteFile "路径"，记得加错误处理（比如文件不存在时）。

5. 系统信息查询：快速获取硬件/系统参数

想知道系统版本、CPU信息？借助WMI（Windows管理规范）：

Dim wmi, item
Set wmi = GetObject("winmgmts:")
' 查询操作系统版本
For Each item In wmi.InstancesOf("Win32_OperatingSystem")
    MsgBox "系统版本：" & item.Caption & vbCrLf & "版本号：" & item.Version
Next
' 查询CPU型号
For Each item In wmi.InstancesOf("Win32_Processor")
    MsgBox "CPU型号：" & item.Name
Next
Set wmi = Nothing

WMI能查的信息很多：内存、磁盘、进程……改一下类名（比如Win32_PhysicalMemory查内存）就行。

6. 进程管理：启动或结束程序

需要自动启动浏览器，或结束占用资源的进程？试试这个：

' 启动Chrome浏览器
CreateObject("WScript.Shell").Run "chrome.exe", 1, False ' 1表示窗口正常显示，False表示不等待程序结束
' 结束Notepad进程
Dim wmi, process
Set wmi = GetObject("winmgmts:")
For Each process In wmi.InstancesOf("Win32_Process")
    If process.Name = "notepad.exe" Then
        process.Terminate()
    End If
Next

注意：结束进程要谨慎，避免误关系统进程。

7. 注册表操作：修改系统设置

比如禁用U盘（运维常用），通过修改注册表实现：

Dim wsh
Set wsh = CreateObject("WScript.Shell")
' 禁用U盘：修改HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR的Start值为4
wsh.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD"
MsgBox "U盘已禁用，重启生效！"

恢复的话把4改成3即可（3是自动启动）。操作注册表前建议备份！

8. 定时任务：延迟执行脚本

想让脚本等待10秒后再运行？用WScript.Sleep：

MsgBox "10秒后将弹出新提示..."
WScript.Sleep 10000 ' 单位是毫秒，10000=10秒
MsgBox "时间到！"

适合需要等待系统响应的场景，比如启动程序后等它加载完成。

9. 错误处理：避免脚本崩溃

脚本运行时难免出错（比如文件不存在），加错误处理让脚本更健壮：

On Error Resume Next ' 开启错误继续执行
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\Test\不存在的文件.txt")
If Err.Number <> 0 Then
    MsgBox "错误：" & Err.Description, vbCritical
    Err.Clear ' 清除错误
End If
On Error Goto 0 ' 关闭错误继续执行

10. 发送邮件：自动通知

需要脚本执行完发邮件通知？用CDO.Message组件（需配置SMTP服务器）：

Dim mail
Set mail = CreateObject("CDO.Message")
mail.Subject = "VBS脚本执行完成通知"
mail.From = "sender@example.com"
mail.To = "receiver@example.com"
mail.TextBody = "脚本已成功运行，无错误。"
' 配置SMTP服务器（以QQ邮箱为例，需开启SMTP并使用授权码）
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.qq.com"
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@example.com"
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "你的授权码"
mail.Configuration.Fields.Update
mail.Send
Set mail = Nothing

写在最后

VBS的优势在于“轻量级”和“Windows原生支持”——不用安装额外环境，双击就能运行。以上10个代码覆盖了交互、文件、系统、网络等常见场景，新手可以从弹窗、文件操作入手，逐步尝试WMI和注册表操作。

不过要注意：VBS权限较高，运行陌生脚本前务必检查代码（避免恶意操作）；复杂场景建议结合PowerShell，但简单任务用VBS足够高效。收藏这篇，下次遇到重复工作时，直接改改代码就能解放双手！