【vbs实用代码】在日常的Windows系统管理与自动化任务中，VBScript（VBS）仍然有着不可忽视的作用。虽然现代脚本语言如PowerShell逐渐取代了它的部分功能，但在一些老旧系统或特定场景下，VBS依然具有实用价值。以下是一些常见的VBS实用代码示例，帮助提升工作效率。
一、VBS实用代码总结
VBS脚本可以用于文件操作、系统信息获取、用户交互、定时任务等。以下是一些常用且实用的VBS代码片段，适用于不同场景。
| 功能 | 代码示例 | 说明 |
| 弹出消息框 | `MsgBox "这是一个提示信息", vbInformation, "提示" ` | 显示一个带有信息图标的提示框 |
| 获取系统时间 | `Dim dtmNow dtmNow = Now MsgBox dtmNow` | 获取当前系统时间并显示 |
| 创建文本文件 | `Set fso = CreateObject("Scripting.FileSystemObject") Set txtFile = fso.CreateTextFile("C:\test.txt", True) txtFile.WriteLine "Hello, World!" txtFile.Close` | 在指定路径创建并写入文本文件 |
| 删除文件 | `Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile "C:\test.txt"` | 删除指定路径下的文件 |
| 获取计算机名 | `Set objComputer = CreateObject("WScript.Network") MsgBox objComputer.ComputerName` | 显示当前计算机的名称 |
| 显示文件内容 | `Set fso = CreateObject("Scripting.FileSystemObject") Set txtFile = fso.OpenTextFile("C:\test.txt", 1) MsgBox txtFile.ReadAll txtFile.Close` | 读取并显示文本文件内容 |
| 弹出输入框 | `strInput = InputBox("请输入内容:", "输入提示") MsgBox "您输入的是: " & strInput` | 获取用户输入并显示 |
| 禁用/启用网络适配器 | `Set objNet = CreateObject("HNetCfg.HNetConnectionManager") Set colConnections = objNet.Connections For Each objConnection In colConnections If objConnection.Name = "以太网" Then objConnection.Disconnect End If Next` | 根据适配器名称禁用网络连接 |
二、使用建议
- 兼容性：VBS脚本在Windows系统中广泛支持，但不适用于非Windows平台。
- 安全性：由于VBS脚本权限较高，运行前需确保来源可靠，避免执行恶意代码。
- 维护性：VBS语法较为简单，适合快速实现小型自动化任务，但复杂逻辑建议使用PowerShell或Python。
三、结语
尽管VBS已不再是主流脚本语言，但在某些特定环境中仍具备实际应用价值。掌握一些常用的VBS代码，能够有效提升系统管理和自动化任务的效率。通过上述表格中的示例，可以快速上手并应用于实际工作中。
