在日常的计算机使用过程中，很多用户会遇到需要自动化处理任务的情况。而VBS（Visual Basic Script）作为一种轻量级的脚本语言，因其简单易用、无需编译即可运行的特点，被广泛应用于Windows系统中的自动化操作中。本文将为大家整理一些常用的VBS代码示例，帮助你更高效地完成日常工作。
一、基础功能类代码
1. 弹窗提示信息
```vbs
MsgBox "这是一个简单的提示框", vbInformation, "提示"
```
这个代码可以用于向用户显示一个带有信息图标的弹窗，适用于提醒或通知。
2. 创建文本文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile("C:\test.txt", True)
txt.WriteLine "这是写入的内容"
txt.Close
```
该脚本可以在指定路径下创建一个名为`test.txt`的文件，并写入指定内容。
3. 获取当前日期和时间
```vbs
WScript.Echo Now
```
直接输出当前系统的日期和时间。
二、系统管理类代码
1. 关闭指定程序
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set colProcessList = objWMIService.ExecQuery("SELECT FROM Win32_Process")
For Each objProcess in colProcessList
If objProcess.Name = "notepad.exe" Then
objProcess.Terminate()
End If
Next
```
此脚本可以用来结束特定进程，如关闭记事本。
2. 重启电脑
```vbs
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -r -t 0"
```
执行后将立即重启计算机。
3. 查看系统信息
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_ComputerSystem")
For Each objItem in colItems
WScript.Echo "系统型号: " & objItem.Model
WScript.Echo "操作系统: " & objItem.OperatingSystem
Next
```
可以获取到计算机的基本硬件和系统信息。
三、实用小工具类代码
1. 自动发送邮件（需配合SMTP服务器）
```vbs
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "sender@example.com"
objEmail.To = "recipient@example.com"
objEmail.Subject = "测试邮件"
objEmail.TextBody = "这是一封通过VBS发送的测试邮件。"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com"
objEmail.Configuration.Fields.Update
objEmail.Send
```
需要配置SMTP服务器地址，适合用于自动化通知。
2. 批量重命名文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\test")
For Each file In folder.Files
newname = "new_" & file.Name
fso.MoveFile file.Path, folder.Path & "\" & newname
Next
```
该脚本可以将指定文件夹下的所有文件名前加上“new_”前缀。
四、注意事项
虽然VBS功能强大，但使用时也需注意以下几点：
- VBS脚本可能被误认为是恶意软件，建议在可信来源获取。
- 不要随意运行不明来源的VBS脚本，以防系统被入侵。
- 在编写脚本时，尽量使用注释说明功能，便于后期维护。
综上所述，VBS代码虽然简单，但在实际应用中却非常实用。无论是日常办公还是系统管理，掌握一些基本的VBS技巧都能大大提高工作效率。希望本文提供的代码能够对你的工作有所帮助。
