asked on

Getting Battery Status

I am having trouble getting the battery status on some Win 98 laptops. Both the Sysinfo control and the GetSystemPowerStatus API are unable to retrieve the status. However, the power meter in the control panel IS able to retrieve the status. Power management is turned on in the CMOS. Any ideas?

TwistD_PissR

If you have WMI installed on the WIN98 Laptops try this:

Sub GetBatteryStatus()
Dim strComputer as String
Dim objWMIService
Dim colItems
Dim objItem
strComputer = "."
Set 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
strBattery = "Availability: " & objItem.Availability
strBattery = strBattery & "BatteryRechargeTime: " & objItem.BatteryRechargeTime
strBattery = strBattery & "BatteryStatus: " & objItem.BatteryStatus
strBattery = strBattery & "Caption: " & objItem.Caption
strBattery = strBattery & "Chemistry: " & objItem.Chemistry
strBattery = strBattery & "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
strBattery = strBattery & "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
strBattery = strBattery & "CreationClassName: " & objItem.CreationClassName
strBattery = strBattery & "Description: " & objItem.Description
strBattery = strBattery & "DesignCapacity: " & objItem.DesignCapacity
strBattery = strBattery & "DesignVoltage: " & objItem.DesignVoltage
strBattery = strBattery & "DeviceID: " & objItem.DeviceID
strBattery = strBattery & "ErrorCleared: " & objItem.ErrorCleared
strBattery = strBattery & "ErrorDescription: " & objItem.ErrorDescription
strBattery = strBattery & "EstimatedChargeRemaining: " & objItem.EstimatedChargeRemaining
strBattery = strBattery & "EstimatedRunTime: " & objItem.EstimatedRunTime
strBattery = strBattery & "ExpectedBatteryLife: " & objItem.ExpectedBatteryLife
strBattery = strBattery & "ExpectedLife: " & objItem.ExpectedLife
strBattery = strBattery & "FullChargeCapacity: " & objItem.FullChargeCapacity
strBattery = strBattery & "InstallDate: " & objItem.InstallDate
strBattery = strBattery & "LastErrorCode: " & objItem.LastErrorCode
strBattery = strBattery & "MaxRechargeTime: " & objItem.MaxRechargeTime
strBattery = strBattery & "Name: " & objItem.Name
strBattery = strBattery & "PNPDeviceID: " & objItem.PNPDeviceID
strBattery = strBattery & "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
strBattery = strBattery & "PowerManagementSupported: " & objItem.PowerManagementSupported
strBattery = strBattery & "SmartBatteryVersion: " & objItem.SmartBatteryVersion
strBattery = strBattery & "Status: " & objItem.Status
strBattery = strBattery & "StatusInfo: " & objItem.StatusInfo
strBattery = strBattery & "SystemCreationClassName: " & objItem.SystemCreationClassName
strBattery = strBattery & "SystemName: " & objItem.SystemName
strBattery = strBattery & "TimeOnBattery: " & objItem.TimeOnBattery
strBattery = strBattery & "TimeToFullCharge: " & objItem.TimeToFullCharge
MsgBox strBattery
Next
End SUb

Neal Hartman

ASKER

Unfortunatly WMI is not installed.

ASKER CERTIFIED SOLUTION

TwistD_PissR

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial