【vbs实用代码】在日常的Windows系统操作中，VBScript（VBS）作为一种轻量级的脚本语言，常用于自动化任务、系统管理及简单程序开发。虽然VBS已逐渐被PowerShell等更强大的工具取代，但在一些旧系统或特定场景下，它依然有其不可替代的作用。以下是一些VBS实用代码的总结，帮助你快速上手并提升工作效率。
一、VBS实用代码总结
| 功能 | 示例代码 | 说明 |
| 显示消息框 | `MsgBox "Hello, World!"` | 弹出一个简单的消息框 |
| 获取用户输入 | `Input = InputBox("请输入你的名字")` | 弹出输入框获取用户输入 |
| 写入文本文件 | ```Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("test.txt", True) file.WriteLine "这是写入的内容" file.Close``` | 创建并写入文本文件 |
| 读取文本文件 | ```Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("test.txt", 1) content = file.ReadAll MsgBox content file.Close``` | 读取并显示文本文件内容 |
| 创建快捷方式 | ```Set WshShell = CreateObject("WScript.Shell") sLinkFile = "C:\shortcut.lnk" Set oShellLink = WshShell.CreateShortcut(sLinkFile) oShellLink.TargetPath = "C:\example.exe" oShellLink.Save``` | 创建桌面快捷方式 |
| 执行外部程序 | `CreateObject("WScript.Shell").Run "notepad.exe"` | 启动记事本程序 |
| 系统信息查询 | ```Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_ComputerSystem") For Each objItem In colItems MsgBox objItem.Manufacturer & " - " & objItem.Model Next``` | 获取电脑品牌和型号 |
二、使用建议
- 安全性：由于VBS脚本可以执行系统命令，使用时需注意来源，避免运行未知脚本。
- 兼容性：VBS仅适用于Windows系统，且部分功能在较新版本中可能被限制。
- 维护性：对于复杂任务，建议使用PowerShell或Python等现代脚本语言。
通过以上VBS实用代码，你可以实现许多日常任务的自动化，提高工作效率。如果你是初学者，可以从简单的消息框和文件操作开始，逐步掌握更复杂的脚本编写技巧。
