Set colMonitoredEvents = GetObject("winmgmts:")._
ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
dim i
do
    Set strLatestEvent = colMonitoredEvents.NextEvent
    Set oShell=createobject("WScript.Shell")
    Dim ObjProcess, oShell
    Select Case strLatestEvent.EventType
    case 4
        For Each objProcess in GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='miranda.exe'")
            ObjProcess.Terminate(0)
        next
    case 7 
        oShell.Run "C:\Programme\Miranda\Miranda32.exe"
    case else
        msgbox i & "ka. fail"
    end select
loop