On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set wshNetwork = WScript.CreateObject("WScript.Network")
strComputer = wshNetwork.ComputerName

strQuery = "SELECT * FROM Win32_PowerSupply"

WScript.StdOut.WriteLine ""
WScript.StdOut.WriteLine "====================================="
WScript.StdOut.WriteLine "COMPUTER : " & strComputer
WScript.StdOut.WriteLine "CLASS    : ROOT\CIMV2\power:Win32_PowerSupply"
WScript.StdOut.WriteLine "QUERY    : " & strQuery
WScript.StdOut.WriteLine "====================================="
WScript.StdOut.WriteLine ""

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\ROOT\CIMV2\power")
Set colItems = objWMIService.ExecQuery(strQuery, "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem in colItems

    WScript.StdOut.WriteLine "ActiveInputVoltage: " & objItem.ActiveInputVoltage
    strAdditionalAvailability = Join(objItem.AdditionalAvailability, ",")
    WScript.StdOut.WriteLine "AdditionalAvailability: " &  strAdditionalAvailability
    WScript.StdOut.WriteLine "Availability: " & objItem.Availability
    strAvailableRequestedStates = Join(objItem.AvailableRequestedStates, ",")
    WScript.StdOut.WriteLine "AvailableRequestedStates: " &  strAvailableRequestedStates
    WScript.StdOut.WriteLine "Caption: " & objItem.Caption
    WScript.StdOut.WriteLine "CommunicationStatus: " & objItem.CommunicationStatus
    WScript.StdOut.WriteLine "CreationClassName: " & objItem.CreationClassName
    WScript.StdOut.WriteLine "Description: " & objItem.Description
    WScript.StdOut.WriteLine "DetailedStatus: " & objItem.DetailedStatus
    WScript.StdOut.WriteLine "DeviceID: " & objItem.DeviceID
    WScript.StdOut.WriteLine "ElementName: " & objItem.ElementName
    WScript.StdOut.WriteLine "EnabledDefault: " & objItem.EnabledDefault
    WScript.StdOut.WriteLine "EnabledState: " & objItem.EnabledState
    WScript.StdOut.WriteLine "ErrorCleared: " & objItem.ErrorCleared
    WScript.StdOut.WriteLine "ErrorDescription: " & objItem.ErrorDescription
    WScript.StdOut.WriteLine "HealthState: " & objItem.HealthState
    strIdentifyingDescriptions = Join(objItem.IdentifyingDescriptions, ",")
    WScript.StdOut.WriteLine "IdentifyingDescriptions: " &  strIdentifyingDescriptions
    WScript.StdOut.WriteLine "InputPowerUnits: " & objItem.InputPowerUnits
    WScript.StdOut.WriteLine "InstallDate: " & objItem.InstallDate
    WScript.StdOut.WriteLine "IsACInput: " & objItem.IsACInput
    WScript.StdOut.WriteLine "IsACOutput: " & objItem.IsACOutput
    WScript.StdOut.WriteLine "IsSwitchingSupply: " & objItem.IsSwitchingSupply
    WScript.StdOut.WriteLine "LastErrorCode: " & objItem.LastErrorCode
    WScript.StdOut.WriteLine "LocationIndicator: " & objItem.LocationIndicator
    WScript.StdOut.WriteLine "MaxQuiesceTime: " & objItem.MaxQuiesceTime
    WScript.StdOut.WriteLine "Name: " & objItem.Name
    strNominalPhaseWiring = Join(objItem.NominalPhaseWiring, ",")
    WScript.StdOut.WriteLine "NominalPhaseWiring: " &  strNominalPhaseWiring
    WScript.StdOut.WriteLine "NumberOfPhasesUtilized: " & objItem.NumberOfPhasesUtilized
    WScript.StdOut.WriteLine "OperatingStatus: " & objItem.OperatingStatus
    strOperationalStatus = Join(objItem.OperationalStatus, ",")
    WScript.StdOut.WriteLine "OperationalStatus: " &  strOperationalStatus
    WScript.StdOut.WriteLine "OtherEnabledState: " & objItem.OtherEnabledState
    strOtherIdentifyingInfo = Join(objItem.OtherIdentifyingInfo, ",")
    WScript.StdOut.WriteLine "OtherIdentifyingInfo: " &  strOtherIdentifyingInfo
    WScript.StdOut.WriteLine "OutputPowerUnits: " & objItem.OutputPowerUnits
    strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
    WScript.StdOut.WriteLine "PowerManagementCapabilities: " &  strPowerManagementCapabilities
    WScript.StdOut.WriteLine "PowerManagementSupported: " & objItem.PowerManagementSupported
    WScript.StdOut.WriteLine "PowerOnHours: " & objItem.PowerOnHours
    WScript.StdOut.WriteLine "PrimaryStatus: " & objItem.PrimaryStatus
    WScript.StdOut.WriteLine "Range1InputFrequencyHigh: " & objItem.Range1InputFrequencyHigh
    WScript.StdOut.WriteLine "Range1InputFrequencyLow: " & objItem.Range1InputFrequencyLow
    WScript.StdOut.WriteLine "Range1InputVoltageHigh: " & objItem.Range1InputVoltageHigh
    WScript.StdOut.WriteLine "Range1InputVoltageLow: " & objItem.Range1InputVoltageLow
    WScript.StdOut.WriteLine "Range1MaxInputPower: " & objItem.Range1MaxInputPower
    WScript.StdOut.WriteLine "Range1MaxOutputPower: " & objItem.Range1MaxOutputPower
    WScript.StdOut.WriteLine "Range2InputFrequencyHigh: " & objItem.Range2InputFrequencyHigh
    WScript.StdOut.WriteLine "Range2InputFrequencyLow: " & objItem.Range2InputFrequencyLow
    WScript.StdOut.WriteLine "Range2InputVoltageHigh: " & objItem.Range2InputVoltageHigh
    WScript.StdOut.WriteLine "Range2InputVoltageLow: " & objItem.Range2InputVoltageLow
    WScript.StdOut.WriteLine "Range2MaxInputPower: " & objItem.Range2MaxInputPower
    WScript.StdOut.WriteLine "Range2MaxOutputPower: " & objItem.Range2MaxOutputPower
    WScript.StdOut.WriteLine "RatedMaxOutputPower: " & objItem.RatedMaxOutputPower
    WScript.StdOut.WriteLine "RequestedState: " & objItem.RequestedState
    WScript.StdOut.WriteLine "Status: " & objItem.Status
    strStatusDescriptions = Join(objItem.StatusDescriptions, ",")
    WScript.StdOut.WriteLine "StatusDescriptions: " &  strStatusDescriptions
    WScript.StdOut.WriteLine "StatusInfo: " & objItem.StatusInfo
    WScript.StdOut.WriteLine "SystemCreationClassName: " & objItem.SystemCreationClassName
    WScript.StdOut.WriteLine "SystemName: " & objItem.SystemName
    WScript.StdOut.WriteLine "TimeOfLastStateChange: " & objItem.TimeOfLastStateChange
    WScript.StdOut.WriteLine "TotalOutputPower: " & objItem.TotalOutputPower
    WScript.StdOut.WriteLine "TotalPowerOnHours: " & objItem.TotalPowerOnHours
    WScript.StdOut.WriteLine "TransitioningToState: " & objItem.TransitioningToState
    WScript.StdOut.WriteLine "TypeOfRangeSwitching: " & objItem.TypeOfRangeSwitching
    WScript.StdOut.WriteLine ""

Next