Разобрать строку свойств в массиве для каждого цикла

Я пытаюсь получить информацию о батарее моего ноутбука с помощью VBScript.

Больше свойств. Я хочу разобрать arrayItems("Name","Availability","BatteryStatus","Chemistry") для каждого objItem.

Например:

For iii = 0 To UBound(arrayItems)
    WScript.Echo "Result of iii:" & objItem.arrayItems (iii)
Next

Я не хочу вводить вручную как "Availability: " & objItem.Availability, "BatteryStatus: " & objItem.BatteryStatus, ...

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery",,48)
For Each objItem In colItems
    WScript.Echo "Name: " & objItem.Name
    WScript.Echo "Availability: " & objItem.Availability
    WScript.Echo "BatteryStatus: " & objItem.BatteryStatus
    WScript.Echo "Chemistry: " & objItem.Chemistry
    WScript.Echo "DesignVoltage: " & objItem.DesignVoltage
    WScript.Echo "EstimatedChargeRemaining: " & objItem.EstimatedChargeRemaining
    WScript.Echo "Status: " & objItem.Status
Next