显示文件路径
```vbscript
If WScript.Arguments.Count = 0 Then
MsgBox "拖拽文件到本vbs文件", 0, "提示"
End If
For jb = 0 To WScript.Arguments.Count - 1
strPath = WScript.Arguments（jb）
MsgBox strPath
Next
```
这段代码会检查是否有文件被拖拽到 VBS 文件上，如果没有则显示提示消息框，如果有，则通过循环将每个拖拽文件的路径用消息框显示出来。
创建文件
```vbscript
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
Set objFile = objFSO.CreateTextFile（"C:\example.txt", True）
objFile.WriteLine（"Hello, World!"）
objFile.Close
```
这段代码会创建一个名为 `example.txt` 的文本文件，并向其中写入 `Hello, World!`。
读取文件
```vbscript
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
Set objFile = objFSO.OpenTextFile（"C:\example.txt", 1）
strContent = objFile.ReadAll
objFile.Close
WScript.Echo strContent
```
这段代码会读取 `example.txt` 文件的全部内容并输出。
删除文件
```vbscript
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
objFSO.DeleteFile（"C:\example.txt"）
```
这段代码会删除指定的 `example.txt` 文件。
创建文件夹
```vbscript
Set objFSO = CreateObject（"Scripting.FileSystemObject"）
objFSO.CreateFolder（"C:\example_folder"）
```
这段代码会在 `C:\` 下创建一个名为 `example_folder` 的文件夹。
监测断网并关机
```vbscript
Set objShell = CreateObject（"WScript.Shell"）
Set objWMIService = GetObject（"winmgmts:\.\root\cimv2"）
CheckInterval = 60000
ShutdownCountdown = 120
IsConnected = True
Do
Set colItems = objWMIService.ExecQuery（"Select * From Win32_NetworkAdapter Where NetConnectionStatus = 2"）
If colItems.Count = 0 Then
If IsConnected Then
IsConnected = False
objShell.Run "shutdown -s -t " & ShutdownCountdown & " -c 系统即将关闭。", 0
End If
End If
WScript.Sleep CheckInterval
Loop
```
这段代码会检测网络连接状态，如果网络断开，则开始倒计时关机。
获取系统安装路径
```vbscript
Set WshShell = WScript.CreateObject（"WScript.Shell"）
strWinDir = WshShell.ExpandEnvironmentStrings（"%WinDir%"）
MsgBox strWinDir
```
这段代码会获取并显示系统安装路径。
播放音乐
```vbscript
Dim wmp
Set wmp = CreateObject（"WMPlayer.OCX"）
wmp.openState
wmp.URL = "想象之中.mp3"
Do Until wmp.playState = 1
WScript.Sleep 1000
Loop
```
这段代码会播放指定的音乐文件。
关闭系统
```vbscript
Set shell = CreateObject（"WScript.Shell"）
shell.Run "shutdown -s -t 60 -c 系统即将关闭。", 0
While InputBox（"请输入答案", "请回答"） <> "123"
WScript.Sleep 1000
Wend
MsgBox "恭喜", 64
```
这段代码会在用户输入特定密码后关闭系统。
这些代码示例涵盖了文件操作、系统监测、音乐播放和系统关闭等常见任务。你可以根据需要选择合适的代码进行使用。