Batteries and Power Supplies - Scripting
List Battery InformationList Portable Battery Information
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
List Battery Information
Returns information about all batteries connected to a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery") For Each objItem in colItems Wscript.Echo "Availability: " & objItem.Availability Wscript.Echo "Battery Status: " & objItem.BatteryStatus Wscript.Echo "Chemistry: " & objItem.Chemistry Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Design Voltage: " & objItem.DesignVoltage Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Estimated Run Time: " & objItem.EstimatedRunTime Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Power Management Capabilities: " For Each objElement In objItem.PowerManagementCapabilities WScript.Echo vbTab & objElement Next Wscript.Echo "Power Management Supported: " & _ objItem.PowerManagementSupported Wscript.Echo Next
List Portable Battery Information
Returns information about any portable battery (such as the batteries used to power laptop computers) in use on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PortableBattery") For Each objItem in colItems Wscript.Echo "Capacity Multiplier: " & objItem.CapacityMultiplier Wscript.Echo "Chemistry: " & objItem.Chemistry Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Design Capacity: " & objItem.DesignCapacity Wscript.Echo "Design Voltage: " & objItem.DesignVoltage Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Location: " & objItem.Location dtmWMIDate = objItem.ManufactureDate strReturn = WMIDateStringToDate(dtmWMIDate) Wscript.Echo "Manufacture Date: " & strReturn Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Maximum Battery Error: " & objItem.MaxBatteryError Wscript.Echo "Smart Battery Version: " & objItem.SmartBatteryVersion Wscript.Echo Next Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid (dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2)) End If End Function