标题中的“VBS 断网后自动关机30秒后”指的是使用VBScript（Visual Basic Scripting Edition）编写的一种程序，当检测到网络连接断开时，会启动一个30秒的倒计时，倒计时结束后电脑将自动关机。这个功能可能在特定的环境或场景下有用，例如在无人值守的服务器或实验室设备中，确保在没有网络连接的情况下，设备能够安全地关闭，避免数据丢失或系统不稳定。
描述中提到的“-t 30”参数是Windows内置的shutdown命令的一部分，用于设置关机倒计时的时间。在这个例子中，时间设定为30秒，意味着从程序检测到网络断开开始，系统会在30秒后自动执行关机操作。用户可以根据实际需要调整这个时间值。
VBScript是一种轻量级的脚本语言，常用于自动化任务、系统管理以及Windows系统中的交互式操作。在这个实例中，VBScript通过以下代码实现监控网络状态并触发关机操作：
```vbscript
Dim Wsh, objWMIService, colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "& chr(34) & "系统网络断开，机器即将关闭" & chr(34)
Loop
```
这段代码的工作原理如下：
1. `Dim Wsh, objWMIService, colMonitoredEvents` 定义了三个变量，`Wsh` 用于创建对象，`objWMIService` 用于访问Windows Management Instrumentation (WMI) 服务，`colMonitoredEvents` 将用来监控网络事件。
2. `Set Wsh = WScript.CreateObject("WScript.Shell")` 创建了一个WScript.Shell对象，可以用来执行系统命令，如shutdown命令。
3. `Set objWMIService = GetObject("winmgmts:\.\root\wmi")` 访问WMI服务，`winmgmts:\.\root\wmi` 是WMI的基本命名空间，包含了系统的各种管理信息。
4. `Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")` 监控网络连接状态，当网络媒体连接状态发生变化时，触发事件。
5. `Do While True` 循环不断检查网络状态。
6. 当检测到网络断开事件（即`strLatestEvent`）时，`Wsh.run "shutdown -s -t 30 -c "& chr(34) & "系统网络断开，机器即将关闭" & chr(34)` 执行shutdown命令，参数 `-s` 表示关机，`-t 30` 设置倒计时30秒，`-c` 参数传递了一个自定义的关机消息。
7. `Loop` 继续循环，直到程序被手动停止或计算机已经关机。
这个脚本可以通过双击运行或者通过批处理文件执行，对于需要在网络断开时自动关机的环境，提供了一种有效的解决方案。同时，由于是基于VBScript的，因此它具有跨平台性，只要目标系统支持VBScript和WMI，就可以正常工作。不过，需要注意的是，这种自动关机的行为可能对用户造成不便，所以在实际部署前应确保有充分的理由和通知机制。
