lcComputer = "." loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2") colItems = loWMIService.ExecQuery("Select * from Win32_Battery") For Each loItem In colItems ?"Availability: " + Transform(loItem.Availability) ?"Battery Status: " + Transform(loItem.BatteryStatus) ?"Description: " + loItem.Description ?"Design Voltage: " + loItem.DesignVoltage ?"Device ID: " + loItem.DeviceID ?"Estimated Run Time: " + Transform(loItem.EstimatedRunTime)+ " minutes" ?"Name: " + loItem.Name ?"Power Management Supported: " + Transform(loItem.PowerManagementSupported) ? Next