vbs 获取笔记本电源状态代码

以下是获取笔记本电源状态的 VBScript 代码：

strComputer = "."  ' 可替换成远程计算机名

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_Battery")

For Each objItem in colItems
    WScript.Echo "BatteryStatus: " & objItem.BatteryStatus
Next

该脚本使用 WMI (Windows Management Instrumentation) 查询 Win32_Battery 类，获取电池状态。BatteryStatus 属性的值为：

- 1 表示未知状态
- 2 表示电池正在使用 AC 电源
- 3 表示电池正在使用电池电源
- 4 表示充电中
- 5 表示未充电

您可以根据自己的需求，将该脚本适当修改。