Programm vor Standbymodus beenden

Set colMonitoredEvents = GetObject("winmgmts:")._
ExecNotificationQuery("Select * from Win32_PowerManagementEvent")

Do
Set strLatestEvent = colMonitoredEvents.NextEvent
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)
Select Case strLatestEvent.EventType
Case 7
set oShell=createobject("WScript.Shell")
oShell.Run "C:\Programme\Miranda\Miranda32.exe"
End Select
Loop

irgendwo is noch ein fehler drin

Hab drauf geschissen und erstell jetzt beim Startup eine lokale Kopie, die beim Shutdown wieder zurückgeschrieben wird.

korrektes script noch:

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

mir is die lokale laufzeitkopie aber im endeffekt lieber.

scripts beim shutdown startet man unter win übrigens so: gpedit.msc => windowseinstellungen => skripts => herunterfahren
ed: damit gehts aber ned, man muss ein logoff script verwenden, da sonst die netzlaufwerke schon getrennt sind
siehe:
http://support.microsoft.com/kb/198642