>Anybody has experience to share of how to apply VFP to detect switching to UPS (when power failure), or just tracking battery power (either laptop or UPS) ?

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