Get Battery Info Report (VBScript)

' ============================================================
' GetBatteryReport.vbs
'
' Reports Battery Info via WMI (Win32_Battery).
'
' Usage: cscript GetBatteryReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Name, EstimatedChargeRemaining, BatteryStatus, Chemistry FROM Win32_Battery")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Name: " & objItem.Name & vbCrLf
    strOutput = strOutput & "EstimatedChargeRemaining: " & objItem.EstimatedChargeRemaining & vbCrLf
    strOutput = strOutput & "BatteryStatus: " & objItem.BatteryStatus & vbCrLf
    strOutput = strOutput & "Chemistry: " & objItem.Chemistry & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Battery Info found."
Else
    WScript.Echo strOutput
End If