Breaking News: Grepper is joining You.com. Read the official announcement!

full battery notification windows 11

Angry Angelfish answered on June 26, 2022 Popularity 8/10 Helpfulness 2/10

answer full battery notification windows 11

full battery notification windows 11

Comment

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 > 95) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
  wscript.sleep 30000 ' 5 minutes
wend

Popularity 8/10 Helpfulness 2/10 Language whatever

Source: www.thewindowsclub.com

Tags: battery whatever windows-11

Link to this answer
Share Copy Link