Vba Windows-10电池指示灯Visual Basic脚本

我从网上得到了一些警告指示灯的代码。当电池正在充电且电池电量超过80%时，我用它来警告我

但我也想用它来警告我当电池电量低于20%。我已经为这个20%的警告添加了一行，但它不起作用。当电池电量超过80%时，它工作，但当电池电量低于20%时不工作

我认为代码是用VisualBasic脚本（VBS）编写的

请帮忙

我已经在其他论坛和这个论坛上搜索过了，但在任何地方都找不到这样的程序

set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
   iFull = oResult.FullChargedCapacity
next

while (1)
  set oResults = oServices.ExecQuery("select * from batterystatus")
  for each oResult in oResults
    iRemaining = oResult.RemainingCapacity
    bCharging = oResult.Charging
  next
  iPercent = ((iRemaining / iFull) * 100) mod 100
  if bCharging and (iPercent > 80) Then msgbox "Battery is charged now more than 80%. Please stop charging for optimal battery life."
  if bCharging and (iPercent < 20) Then msgbox "Battery is discharging and is below 20%. Please switch on charging immediately."
  wscript.sleep 30000 ' 5 minutes
wend

set-oLocator=CreateObject（“WbemScripting.SWbemLocator”）
设置oServices=oLocator.ConnectServer（“.”，“root\wmi”）
set-oResults=oServices.ExecQuery（“从电池容量中选择*）
对于oResults中的每个oResults
iFull=oResult.FullChargedCapacity
下一个
而(1)
set-oResults=oServices.ExecQuery（“从batterystatus中选择*）
对于oResults中的每个oResults
iMaining=oResult.RemainingCapacity
B充电=或结果充电
下一个
iPercent=（（iMaining/iFull）*100）模块100
如果B正在充电且（iPercent>80），则msgbox“电池现在充电超过80%。请停止充电以获得最佳电池寿命。”
如果B正在充电且（iPercent<20），则msgbox“电池正在放电且低于20%。请立即打开充电。”
wscript.sleep 30000'5分钟
温德

如果电池正在充电且电量低于20%，为什么要发出警告？或者你的意思是测试电池是否没有充电并且低于20%？这是一个很好的观点。我只想知道电池什么时候低于20%以及什么时候没有充电。我想如果没有充电，应该读

，然后重新启动后工作。谢谢你的提示。我的笔记本电脑好像有两个电池。有没有办法获得两个电池的平均充电量，以及其中一个是否正在充电？我的问题是，如果电池1处于40%并正在充电，而电池2处于60%并没有充电，那么，与其报告电池处于50%并正在充电，不如报告电池处于60%并没有充电。