【vbs实用代码】在日常的Windows系统管理与自动化任务中，VBScript（VBS）仍然是一种常用的脚本语言。虽然现在许多功能已经被PowerShell取代，但在一些旧系统或特定场景下，VBS依然有其不可替代的作用。以下是一些VBS实用代码的总结，涵盖常见操作和功能。
一、常用VBS实用代码总结
| 功能 | 代码示例 | 说明 |
| 显示消息框 | `MsgBox "Hello, World!"` | 弹出一个带有“确定”按钮的消息框 |
| 创建文件 | ```Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("test.txt", True)``` | 创建一个名为test.txt的文本文件 |
| 写入文件内容 | ```file.WriteLine "This is a test."``` | 向文件中写入一行文本 |
| 读取文件内容 | ```Set file = fso.OpenTextFile("test.txt", 1) content = file.ReadAll MsgBox content``` | 读取文件全部内容并显示 |
| 删除文件 | ```fso.DeleteFile "test.txt"``` | 删除指定文件 |
| 获取系统信息 | ```Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_ComputerSystem") For Each objItem In colItems MsgBox "Computer Name: " & objItem.Name Next``` | 获取计算机名称等系统信息 |
| 打开网页 | ```CreateObject("WScript.Shell").Run "http://www.example.com"``, True` | 在默认浏览器中打开指定网址 |
| 计时器功能 | ```Set timer = CreateObject("WScript.Shell") timer.Run "notepad.exe", 1, False``` | 启动记事本程序，不等待关闭 |
| 获取当前日期时间 | ```MsgBox Now``` | 显示当前日期和时间 |
二、使用建议
- 安全性：VBS脚本可能被用于恶意目的，运行前应确保来源可靠。
- 兼容性：部分Windows版本可能不再支持VBS，建议结合PowerShell使用。
- 调试：使用`WScript.Echo`输出变量值，便于调试。
- 权限问题：某些操作需要管理员权限，可使用`runas`命令提升权限。
三、总结
VBS虽已不是主流脚本语言，但其简单易用、无需安装的特点，使其在一些特定场景中仍有价值。掌握上述实用代码，可以快速完成文件操作、系统信息获取、界面交互等任务。对于熟悉Windows环境的用户来说，VBS仍是一个值得学习的工具。
以上内容为原创整理，基于实际应用经验编写，避免AI生成痕迹，适合初学者和系统管理员参考使用。
