i est un entier
// see : https://docs.microsoft.com/fr-fr/windows/desktop/WmiSdk/swbemlocator
oLocator est un objet Automation dynamique
oService est un objet Automation dynamique
oResult est un objet Automation dynamique

WHEN EXCEPTION IN
oLocator = allouer un objet Automation "WbemScripting.SWbemLocator"
IF oLocator = Null THEN RENVOYER ""
oService = oLocator>>ConnectServer(".", "root\cimv2")
oService>>Security_>>ImpersonationLevel = 3
// see :
https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/win32-battery
oResult = oService>>ExecQuery("SELECT * FROM Win32_Battery")

IF oResult>>Count > 0 THEN
FOR i=0 _TO_ oResult>>Count-1

Trace("BatteryStatus : "+
oResult>>ItemIndex(i)>>Properties_>>Item("BatteryStatus")>>Value)
Trace("Availability : "+
oResult>>ItemIndex(i)>>Properties_>>Item("Availability")>>Value)
Trace("Chemistry : "+
oResult>>ItemIndex(i)>>Properties_>>Item("Chemistry")>>Value)
Trace("Caption : "+
oResult>>ItemIndex(i)>>Properties_>>Item("Caption")>>Value)
Trace("DesignCapacity : "+
oResult>>ItemIndex(i)>>Properties_>>Item("DesignCapacity")>>Value)
Trace("DesignVoltage : "+
oResult>>ItemIndex(i)>>Properties_>>Item("DesignVoltage")>>Value)
Trace("EstimatedChargeRemaining : "+
oResult>>ItemIndex(i)>>Properties_>>Item("EstimatedChargeRemaining")>>Value)
Trace("EstimatedRunTime : "+
oResult>>ItemIndex(i)>>Properties_>>Item("EstimatedRunTime")>>Value)
Trace("ExpectedBatteryLife : "+
oResult>>ItemIndex(i)>>Properties_>>Item("ExpectedBatteryLife")>>Value)
Trace("ExpectedLife : "+
oResult>>ItemIndex(i)>>Properties_>>Item("ExpectedLife")>>Value)
Trace("FullChargeCapacity : "+
oResult>>ItemIndex(i)>>Properties_>>Item("FullChargeCapacity")>>Value)
Trace("InstallDate : "+
oResult>>ItemIndex(i)>>Properties_>>Item("InstallDate")>>Value)
Trace("MaxRechargeTime : "+
oResult>>ItemIndex(i)>>Properties_>>Item("MaxRechargeTime")>>Value)
Trace("Name : "+ oResult>>ItemIndex(i)>>Properties_>>Item("Name")>>Value)
Trace("Status : "+
oResult>>ItemIndex(i)>>Properties_>>Item("Status")>>Value)
Trace("StatusInfo : "+
oResult>>ItemIndex(i)>>Properties_>>Item("StatusInfo")>>Value)
Trace("TimeOnBattery : "+
oResult>>ItemIndex(i)>>Properties_>>Item("TimeOnBattery")>>Value)
Trace("TimeToFullCharge : "+
oResult>>ItemIndex(i)>>Properties_>>Item("TimeToFullCharge")>>Value)
END
END
IF oResult <> Null THEN libérer oResult
IF oResult <> Null THEN libérer oService
libérer oLocator
DO
Trace("Erreur dans la requête...")
END