WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Programm vor Standbymodus beenden (http://www.wcm.at/forum/showthread.php?t=233046)

schichtleiter 22.01.2009 20:01

Programm vor Standbymodus beenden
 
Habe mein Profil bei Miranda auf einem Netzlaufwerk abgelegt. Wenn der Laptop in den Standbymodus wechselt, verliert Miranda somit sein Profil und stürzt ab.
Suche nun nach einer Lösung, um Miranda automatisch zu killen bevor der PC in den Standbymodus wechselt, und es eventuell beim aufwachen wieder zu starten.

schichtleiter 22.01.2009 20:26

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

schichtleiter 22.01.2009 20:38

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

schichtleiter 22.01.2009 20:48

korrektes script noch:

Code:

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


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:41 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag