VBS（Visual Basic Scripting Edition）是一种轻量级的脚本语言，主要用于Windows操作系统中的自动化任务。以下是一些经典的VBS代码示例：
Windows系统管理
注销/重起/关闭本地Windows NT/2000计算机：
```vbscript
Sub ShutDown()
Dim Connection, WQL, SystemClass, System
' Get connection to local wmi
Set Connection = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
".\\root\\default:stdregprov")
' Perform system operations
End Sub
```
磁盘碎片整理
VBS脚本实现整理磁盘碎片功能：
```vbscript
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, d, dc
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetFolder(".")
Set dc = fso.CreateTextFile("defrag.txt", 2)
' Add your defragmentation logic here
dc.Close
```
定时任务
计划任务定时调用VBS脚本：
```vbscript
Option Explicit
On Error Resume Next
' Schedule the script to run at regular intervals
' Add your scheduling logic here
```
播放音乐
VBS播放音乐：
```vbscript
Dim wmp
Set wmp = CreateObject("WMPlayer.OCX")
wmp.openState
wmp.URL = "想象之中.mp3"
Do Until wmp.playState = 1
WScript.Sleep 1000
Loop
```
修改桌面背景图片
修改桌面背景图片：
```vbscript
Sphoto = "d:\1.bmp" '输入你自己的BMP路径
computer = "."
Const hkcu = &H80000001
Set wmi = GetObject("winmgmts:\\" & computer & "\root\default:stdregprov")
wmi.GetStringValue hkcu, "Control Panel\Desktop", "Wallpaper", SnDll32.exe
```
系统日志分析
查询系统日志：
```vbscript
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent " _
"Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006'")
For Each objEvent In colLoggedEvents
Wscript.Echo "本次开机时间: " & FormatWMIUTC(objEvent.TimeWritten)
Next
Function FormatWMIUTC(WMIDateString)
' Format the WMI date string to a readable format
End Function
```
语音合成
使用SAPI.SpVoice进行语音合成：
```vbscript
CreateObject("SAPI.SpVoice").Speak "收集网吧无盘常见问题,关注网吧行业动态,唾弃和鄙视网吧垄断及恶意广告行为"
```
这些示例展示了VBS在不同任务中的应用，包括系统管理、文件操作、定时任务、多媒体播放、系统日志分析和语音合成等。你可以根据自己的需求选择合适的代码进行学习和使用。
