Is there a way to execute a program on power events?

I'm basically looking for a way to execute an application when my laptop transitions to battery power and, similarly, when it returns to AC.

Is there a built-in hook in Windows or a third-party application that will allow me to respond to such events?

EDIT

I've looked into the TaskScheduler trying to fire off a task on a "power" event, but no event seems to be logged when switching to battery.

Solution 1:

I wrote an application (http://batterysaver.codeplex.com/) that will listen for a power mode change message and execute actions based on an XML configuration.

If someone else can use it, or extend it, then awesome. If there's something better, then please post it.

Solution 2:

Don't know of a simple command you can run for this, but scripting should be able to do this.

Try intercepting the Win32_PowerManagementEvent event in PowerShell or WSH. The tomshardware article has some vbscript code, but i think you'll need a case for eventtype 10 (powerstate change). StackOverflow has some ideas at How can I know when Windows is going into/out of sleep or Hibernate mode?, though you'll have to extend the idea to handle power state change instead of sleep/hibernate. You might also find some ideas in the code for the question How does one use ManagementEventWatcher to keep track of suspend/resume?

EDIT: In fact, try something like this. This is totally hacked together, so it's not pretty. Change the Echo statements to do whatever you want if change to DC or AC power is detected. Run with cscript power.vbs

power.vbs

Dim battery_status, prev_status
prev_status = CheckBattery
Set colMonitoredEvents = GetObject("winmgmts:\\.\root\cimv2")._
    ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
    Set strLatestEvent = colMonitoredEvents.NextEvent
    If strLatestEvent.EventType = 10 Then
        battery_status = CheckBattery
        If battery_status <> prev_status Then
            If battery_status = 1 Then
                Wscript.Echo "DC power"
            ElseIf battery_status = 2 Then
                Wscript.Echo "AC power"
            End If
        End If
    End If
    prev_status = battery_status
Loop

Function CheckBattery
    Dim oWMI, items, item
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set items = oWMI.ExecQuery("Select * from Win32_Battery",,48)
    For Each item in items
        If item.BatteryStatus = 1 Then
            CheckBattery = 1
            Exit Function
        ElseIf item.BatteryStatus = 2 then
        CheckBattery = 2
            Exit Function
        End If
    Next
End Function