| 内容 | 在日常的Windows系统管理与自动化任务中，VBScript（VBS）仍然是一款非常实用的脚本语言。尽管它已逐渐被PowerShell等更现代的工具所取代，但在某些场景下，VBS依然具有不可替代的作用。以下是一些常见的VBS实用代码，涵盖文件操作、系统信息获取、弹窗提示、定时任务等多个方面。 一、VBS常用功能总结 | 功能 | 说明 | 示例代码 | | 弹窗提示 | 显示简单的消息框 | `MsgBox "Hello, World!", vbInformation` | | 文件读写 | 读取或创建文本文件 | `Set fso = CreateObject("Scripting.FileSystemObject")`
`Set file = fso.CreateTextFile("test.txt", True)` | | 获取系统信息 | 获取计算机名、IP地址等 | `Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")`
`Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_ComputerSystem")` | | 执行命令 | 调用系统命令行 | `CreateObject("WScript.Shell").Run "notepad.exe"` | | 定时任务 | 设置定时执行脚本 | 使用Windows任务计划程序配合VBS脚本实现 | | 禁用快捷键 | 阻止用户使用特定快捷键 | `Set WshShell = WScript.CreateObject("WScript.Shell")`
`WshShell.SendKeys "^{ESC}"` |
二、常见VBS代码示例 1. 显示消息框 ```vbs MsgBox "这是一个VBS消息框！", vbExclamation, "提示" ``` 2. 创建并写入文本文件 ```vbs Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("C:\test.txt", True) file.WriteLine "这是写入的内容" file.Close ``` 3. 获取本地IP地址 ```vbs Set objShell = CreateObject("WScript.Shell") strCommand = "ipconfig | findstr ""IPv4""" | Set objExec = objShell.Exec(strCommand)
Do While Not objExec.StdOut.AtEndOfStream
strLine = objExec.StdOut.ReadLine
If InStr(strLine, "IPv4") > 0 Then
MsgBox Mid(strLine, InStr(strLine, ":") + 2), vbInformation, "IP地址"
End If
Loop
```
4. 弹出确认对话框
```vbs
If MsgBox("确定要执行此操作吗？", vbYesNo + vbQuestion, "确认") = vbYes Then
MsgBox "你选择了是！"
Else
MsgBox "你选择了否！"
End If
```
5. 自动关闭程序
```vbs
Set objShell = CreateObject("WScript.Shell")
objShell.Run "taskkill /F /IM notepad.exe"
```
三、注意事项
- VBS脚本需以 `.vbs` 为后缀保存，并通过双击运行。
- 在较新的Windows版本中，VBS默认可能被禁用，可通过“启用或关闭Windows功能”重新开启。
- VBS不支持复杂的数据结构和面向对象编程，适合简单任务处理。
- 对于安全性要求高的环境，建议使用PowerShell或Python替代。
四、总结
VBS虽然不是最新的脚本语言，但在一些简单的系统维护、界面交互、自动化任务中仍有其独特价值。掌握一些常用的VBS代码，可以大大提升工作效率。对于初学者来说，从基础的弹窗、文件操作入手，逐步深入到系统管理和网络操作，是一个不错的学习路径。