Vbs实现监测断网就关机的实现代码

VBS实现断网就关机：详细代码及说明

原理

通过VBScript定期检查网络连接状态，如果检测到断网，则执行关机命令。

代码

' 设置要检测的网络接口（可根据实际情况修改）

strNetworkAdapter = "本地连接"  ' 替换为你的网络接口名称



' 设置检查间隔（毫秒）

intInterval = 60000  ' 每分钟检查一次



' 设置关机前提示时间（秒）

intWarningTime = 30



Dim objWMI, colAdapters, objAdapter, blnConnected

Dim WshShell



Set WshShell = WScript.CreateObject("Wscript.Shell")

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colAdapters = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description='" & strNetworkAdapter & "'")



Do

  For Each objAdapter In colAdapters

    blnConnected = False

    If IsArray(objAdapter.IPEnabled) Then

      For Each strIP In objAdapter.IPEnabled

        If strIP <> "" Then

          blnConnected = True

          Exit For

        End If

      Next

    End If

  Next



  If Not blnConnected Then

    WScript.Echo "网络断开，" & intWarningTime & "秒后将自动关机..."

    WScript.Sleep intWarningTime * 1000

    WshShell.Run "shutdown -s -t 0", 0, True

  End If



  WScript.Sleep intInterval

Loop

代码解释

1. 设置网络接口:
   • strNetworkAdapter：指定要检测的网络接口名称，可根据实际情况修改。
2. 设置检查间隔:
   • intInterval：设置每隔多长时间检查一次网络连接状态。
3. 设置关机前提示时间:
   • intWarningTime：在关机前显示提示的时间。
4. 获取网络适配器信息:
   • 使用WMI查询指定网络适配器的IP地址信息，判断网络是否连接。
5. 循环检测:
   • 不断循环检查网络连接状态。
   • 如果网络断开，则显示提示信息并执行关机命令。

使用方法

1. 创建VBS文件: 将上述代码复制到一个文本文件中，保存为.vbs格式（例如，断网关机.vbs）。
2. 修改网络接口名称: 将strNetworkAdapter替换为你的实际网络接口名称。
3. 运行脚本: 双击运行该VBS文件即可。

注意

• 网络接口名称: 准确的网络接口名称可以在设备管理器中查看。
• 关机命令: shutdown -s -t 0表示立即关机，可以根据需要修改关机时间。
• WMI权限: 脚本需要有足够的WMI权限才能查询网络适配器信息。
• 其他操作: 可以在此基础上添加其他功能，例如发送通知、记录日志等。

注意事项

• 误关机: 请确保网络接口名称正确，以免误关机。
• 系统影响: 长时间运行脚本可能会占用部分系统资源。
• 其他方式: 除了VBS，还可以使用其他脚本语言或第三方软件实现类似功能。

扩展

• 添加日志功能: 记录每次检测结果和关机操作。
• 支持多个网络接口: 同时检测多个网络接口的状态。
• 自定义关机方式: 提供多种关机选项（重启、注销等）。
• 图形界面: 使用VB或其他编程语言开发一个带图形界面的工具。

温馨提示：

• 在使用本脚本前，请仔细阅读代码并进行测试，以确保脚本的正确性。
• 建议在虚拟机或测试环境中先进行测试，以免对生产环境造成影响。

免责声明： 本脚本仅供学习参考，请谨慎使用，避免因误操作造成数据丢失。