Looking for help making a battery meter object

my suggestion try searching for something like WMI Battery Meter.

that took 10 seconds:

strComputer = "."

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

Set colItems = objWMIService.ExecQuery("Select * From BatteryStatus Where Voltage > 0")

For Each objItem in colItems
    Wscript.Echo "Battery: " & objItem.InstanceName
    Wscript.Echo "On AC Power: " & objItem.PowerOnline
    Wscript.Echo "Battery is Discharging: " & objItem.Discharging
    Wscript.Echo "Battery is Charging: " & objItem.Charging
    Wscript.Echo "Remaining capacity: " & objItem.RemainingCapacity
Next

This could be modified to work in Vbscript on DX.. look at my WMI tutorial
https://www.wincustomize.com/articles.aspx?aid=149299

Everyone knows i cant let things lie.... so:

Make a TEXT object, and add this code:

I found this on the page i found that code:

• InstanceName. Identifying information for the battery.
• PowerOnline. The key to this entire script. If PowerOnline is True that means that the AC adapter is plugged in and the computer is not running off the battery. If PowerOnline is False that means that the computer is running off the battery.
• Discharging. Indicates whether the battery is in use and therefore discharging.
• Charging. Indicates whether the battery is currently charging.
• RemainingCapacity. Lets you know the estimated battery life. We’re not 100% sure what this number means. We found some information that suggests the value is reported back as milliwatt-hours, but we don’t know that for sure; for that matter, we don’t even know what a millwatt-hour is. However, we do know this: on our test computer the Windows Power Meter would report an estimated battery life like 2 hours and 54 minutes (that is, 174 minutes). Meanwhile, the value of the RemainingCapacity property would come back as 43734. If we divided 43734 by 174 minutes, we got back a value of 252. For us 252 seemed to be the magic number: any time we divided RemainingCapacity by 252 we got back a value, in minutes, that matched up quite nicely with the estimated battery life reported back by the Power Meter. Again, we can’t guarantee that 252 is the magic number but, again, it gives you a place to start.

There seems to be a lot of info hiding in that class... look over this code:

Awesome!

Thanks alot this is really helpfull

I haven't tried to attach a script to the object-- I just assumed that it was possible to do it with DX's built in plugin but that makes sense.

EDID: BTW, I figured out the formula to relate the values to time remaining; just add these lines to the code:

If objItem.PowerOnline = False Then
    object.text = object.text & "DischargeRate: " & objItem.DischargeRate & vbnewline
    object.text = object.text & "Time remaining: " & Left(objItem.RemainingCapacity/objItem.DischargeRate, 1) & ":" & Left(Mid(objItem.RemainingCapacity/objItem.DischargeRate, 2, 3)*60, 2)
End If

Its usually exactly on but It might be off by about a minute or two at the most.. rounding error :/

LOL gotta love it when you cant put it down and have to tinker with it!! Roman how about a dx object that will calculate the meaning of life!! excellant posts by the way!

lol sorry for the seemingly stupid question but, is there a way to get the code to automatically update AS SOON AS there's a change in the capacity and as soon as the discharge state turns to True WITHOUT using a timer to have it manually check everytime? Or is the only way to attach an update timer and to find a middleground time for the update?

I mean you can attach a timer to the battery to have it update all the statistics but if you make it quick, it will take up a lot of needless processing power and If you make it slow, it will be unreliable as far as its readings go.

I was thinking of using something like the Object_Onstatechange (state) function which waits for the event to occur before executing the commands...

Thanks again

YES:  42

Look at TIMER Tutorials, there are a few, or look in any weather app, or just about any of my apps, there is a timer call in there.  Just set it to 10 seconds or so or even 15 seconds.  ie: 10000 or 15000  Good Luck

Okie Its done,

I attached a timer to it to check for update as per Roman's suggestion.

Here's the script in case anyone reading this wants to make one too

3 objects;

 1 main battery,

Sub Object_OnScriptenter
 Object.SetTimer 6000, 60000
End Sub
Sub Object_ontimer6000
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * From BatteryStatus Where Voltage > 0")
For Each objItem In colItems
If objItem.PowerOnline = True Then
 If objItem.Charging = True Then
     DesktopX.Object("Charge").State = "Charging"
    Else
    DesktopX.Object("Charge").State = "Show"
 End If
Else
    DesktopX.Object("Charge").State = "Hide"
End If
 If objItem.RemainingCapacity/47741 = 1 Then
         Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_full.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 <> 100 And  (objItem.RemainingCapacity/47741)*100 > 89  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_7.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 89  And  (objItem.RemainingCapacity/47741)*100 > 79  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_6.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 79 And  (objItem.RemainingCapacity/47741)*100 > 69  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_5.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 69 And  (objItem.RemainingCapacity/47741)*100 > 45  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_4.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 45 And  (objItem.RemainingCapacity/47741)*100 > 20  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_3.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 20 And  (objItem.RemainingCapacity/47741)*100 > 1  Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_1.png"
 End If
 If (objItem.RemainingCapacity/47741)*100 < 1 Then
    Object.Picture = "C:\Users\Homer\Pictures\IconS\battery_empty!.png"
 End If
Next
Object.SetTimer 6000, 60000
End Sub

1 statistics object

Sub Object_OnScriptEnter
Object.SetTimer 5000, 100
End Sub
Sub Object_ontimer5000
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * From BatteryStatus Where Voltage > 0")
For Each objItem In colItems
 object.text = FormatPerCent((objItem.RemainingCapacity/47741), 0) &vbnewline

If objItem.Charging = True Then
 If objItem.ChargeRate > 0 Then
    object.text = object.text & Left(((47741-objItem.RemainingCapacity)/objItem.ChargeRate)*60, 3)&vbnewline
 End If
End If

If objItem.PowerOnline = False Then
    If objItem.DischargeRate > 0 Then
    object.text = object.text & Left(objItem.RemainingCapacity/objItem.DischargeRate, 1) & ":" & Left(Mid(objItem.RemainingCapacity/objItem.DischargeRate, InStr(1, objItem.RemainingCapacity/objItem.DischargeRate, "."), 2)*60, 2) + 3 &vbnewline
    End If
End If
object.tooltiptext =  "Battery: " & objItem.InstanceName & vbnewline
object.tooltiptext = object.tooltiptext & "On AC Power: " & objItem.PowerOnline& vbnewline
object.tooltiptext = object.tooltiptext & "Battery is Charging: " & objItem.Charging& vbnewline
object.tooltiptext = object.tooltiptext & "Voltage: " & objItem.Voltage& vbnewline
object.tooltiptext = object.tooltiptext & "Discharge Rate: " & objItem.DischargeRate& vbnewline
object.tooltiptext = object.tooltiptext & "Charge Rate: " & objItem.chargeRate& vbnewline

Next
Object.SetTimer 5000, 5000
End Sub

1 charge status object

No script, Object MUST have three states, one Hide with no image attached, one Show, with the image, and one charging state that's got a colored image attached.

Notes: The number 47441 just happens to be my battery's remaining capacity at 100%. I expect this value to be different for other batteries.

Make sure you change all of the filepaths accordingly to lead to the battery icon images..

I didn't have the time nor did I care enough to clean up this code, as it is, it's pretty fast, gets the job done, and doesn't waste TOO many resources. I might go back and optimize the code later but I wouldn't mind if someone here wants to do it

I would suggest that you make more "States" for this object and just add these images into it.

You could call the states:

Full,7,6,5,4,3,2,1,empty

then just set the state to that so that no one has to point to the actual images.