$str = ''
$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI") 
$colItems = $objWMIService.ExecQuery( _
    "SELECT * FROM BatteryFullChargedCapacity")
$str = 	"-----------------------------------" & @LF & _
		"BatteryFullChargedCapacity instance" & @LF & _
		"-----------------------------------" & @LF
$count = 1
For $objItem In $colItems
	$str &= $count & '. ' & "Max. Ladekapazität: " & $objItem.FullChargedCapacity & @LF 
	$count += 1
Next
$str &= @LF
$colItems = $objWMIService.ExecQuery( _
    "SELECT * FROM BatteryRuntime")
$str &= "-----------------------------------" & @LF & _
		"BatteryRuntime instance" & @LF & _
		"-----------------------------------" & @LF
$count = 1
For $objItem In $colItems
    $str &= $count & '. ' & "Restlaufzeit: " & $objItem.EstimatedRuntime & @LF 
	$count += 1
Next
$str &= @LF
$colItems = $objWMIService.ExecQuery( _
    "SELECT * FROM BatteryStatus")
$str &= "-----------------------------------" & @LF & _
		"BatteryStatus instance" & @LF & _
		"-----------------------------------" & @LF
$count = 1
For $objItem In $colItems
    $str &= $count & '. ' & "Critical: " & $objItem.Critical & @LF 				; Ladezustand kritisch: True(-1)/False(0)
    $str &= $count & '. ' & "Charging: " & $objItem.Charging & @LF 				; Laden: 				True(-1)/False(0)
    $str &= $count & '. ' & "ChargeRate: " & $objItem.ChargeRate & @LF 			; Ladetempo: 			Number
    $str &= $count & '. ' & "Discharging: " & $objItem.Discharging & @LF 		; Entladen: 			True(-1)/False(0)
    $str &= $count & '. ' & "DischargeRate: " & $objItem.DischargeRate & @LF 	; Entladetempo: 		Number
    $str &= $count & '. ' & "Voltage: " & $objItem.Voltage & @LF 				; 1-Akkubetrieb, 2-Netzbetrieb
	$count += 1
Next

MsgBox(0, 'Akku Info', $str)