【vbs编程必背50个程序】VBScript（简称VBS）是一种由微软开发的轻量级脚本语言，广泛用于Windows系统中的自动化任务、文件操作、注册表修改、系统信息获取等。对于初学者或有一定基础的开发者来说，掌握一些经典且实用的VBS程序是提升编程能力的重要一步。以下是一些值得学习和记忆的VBS编程示例，帮助你快速入门并深入理解其功能。
1. 显示一个简单的消息框
```vbs
MsgBox "Hello, World!"
```
这是最基础的VBS程序，用于弹出一个提示框。
2. 获取当前日期和时间
```vbs
WScript.Echo Now
```
显示当前系统的时间和日期。
3. 弹出输入对话框
```vbs
Dim name
name = InputBox("请输入你的名字：")
MsgBox "你好，" & name
```
通过InputBox获取用户输入，并在消息框中显示。
4. 创建文本文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("test.txt", True)
file.WriteLine "这是第一行内容"
file.Close
```
创建一个名为`test.txt`的文本文件，并写入一行内容。
5. 读取文本文件内容
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("test.txt", 1)
WScript.Echo file.ReadAll
file.Close
```
读取并输出文件中的所有内容。
6. 删除文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "test.txt"
```
删除指定路径下的文件。
7. 移动文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "test.txt", "C:\temp\test.txt"
```
将文件从一个位置移动到另一个位置。
8. 复制文件
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "test.txt", "C:\temp\test_copy.txt"
```
复制文件到指定目录。
9. 创建文件夹
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:\temp\new_folder"
```
在指定路径下创建新文件夹。
10. 删除文件夹
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\temp\new_folder"
```
删除指定的文件夹（必须为空）。
11. 检查文件是否存在
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("test.txt") Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
```
判断文件是否存在于当前路径。
12. 检查文件夹是否存在
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\temp") Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在"
End If
```
检查指定文件夹是否存在。
13. 获取磁盘信息
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set disks = objWMIService.InstancesOf("Win32_LogicalDisk")
For Each disk In disks
WScript.Echo "驱动器: " & disk.DeviceID & ", 类型: " & disk.DriveType & ", 容量: " & disk.Size & " bytes"
Next
```
列出系统中所有逻辑磁盘的信息。
14. 关闭当前运行的进程
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set processes = objWMIService.InstancesOf("Win32_Process")
For Each process In processes
If process.Name = "notepad.exe" Then
process.Terminate()
End If
Next
```
终止所有记事本进程。
15. 启动外部程序
```vbs
CreateObject("WScript.Shell").Run "notepad.exe"
```
启动记事本程序。
16. 执行命令行命令
```vbs
CreateObject("WScript.Shell").Run "cmd /c dir", 0, True
```
执行`dir`命令并隐藏窗口。
17. 获取系统信息
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set computers = objWMIService.InstancesOf("Win32_ComputerSystem")
For Each computer In computers
WScript.Echo "计算机名: " & computer.Name
WScript.Echo "操作系统: " & computer.OSName
WScript.Echo "总内存: " & computer.TotalPhysicalMemory / 1024 / 1024 & " MB"
Next
```
获取系统基本信息。
18. 获取IP地址
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objItem In colItems
For Each ipAddr In objItem.IPAddress
WScript.Echo "IP地址: " & ipAddr
Next
Next
```
获取网络适配器的IP地址。
19. 获取MAC地址
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set colItems = objWMIService.ExecQuery("SELECT FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objItem In colItems
WScript.Echo "MAC地址: " & objItem.MACAddress
Next
```
获取网络适配器的MAC地址。
20. 获取系统启动时间
```vbs
Set objWMIService = GetObject("winmgmts:\\.")
Set os = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each osItem In os
WScript.Echo "系统启动时间: " & osItem.LastBootUpTime
Next
```
显示系统的启动时间。
（由于篇幅限制，以上仅为前20个程序。完整50个程序可继续扩展，包括文件操作、注册表操作、定时任务、字符串处理、错误处理等。）
总结
VBS虽然不是现代主流编程语言，但在Windows环境下依然有其独特的应用价值。掌握这些“必背”程序，不仅能提高工作效率，还能增强对系统底层操作的理解。建议在实际项目中结合具体需求灵活运用，同时注意权限控制与安全性问题。
