strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM BatteryFullChargedCapacity",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "BatteryFullChargedCapacity instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "FullChargedCapacity: " & objItem.FullChargedCapacity
Next

Geschtzte Laufzeit (Restlaufzeit)
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM BatteryRuntime",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "BatteryRuntime instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "EstimatedRuntime: " & objItem.EstimatedRuntime
Next


strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM BatteryStatus",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "BatteryStatus instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Critical: " & objItem.Critical		; Ladezustand kritisch: True/False
    Wscript.Echo "Charging: " & objItem.Charging		; Laden: True/False
    Wscript.Echo "ChargeRate: " & objItem.ChargeRate		; Ladetempo: NUmber
    Wscript.Echo "Discharging: " & objItem.Discharging		; Entladen: True/False
    Wscript.Echo "DischargeRate: " & objItem.DischargeRate	; Entladetempo: Number
    Wscript.Echo "Voltage: " & objItem.Voltage			; 0-Akkubetrieb, 2-Netzbetrieb
Next



