[XP] Kill/Start proces na Standby/Suspend

[Freemann]

Ok ik heb MCE2005 hier draait een leuke koe op voor DPC. Nu heb ik C&Q wat leuk is voor een MCE pc en vooral als hij 's nacht in je kamer op staat te nemen. Maar nu is het dus zo dat de koe 100% (logisch) CPU time pakt. Nu wil ik dat als ik de PC in standby zet dat de koe afgesloten word(kill proces) en dat ik na de standby de optie krijg om hem weer op te starten. Het afsluiten lukt met behulp van een script dat ik heb gevonden maar het opnieuw opstarten wil niet lukken.

Nu had ik het opstarten als volgt in gedachten:
Na de standby word een batch bestand opgestart waarin ik de mogelijkheid krijg om de koe te starten. Reageer ik niet op dit bestand dan zal de koe niet worden gestart en blijft mijn PC relatief stil als hij 's nachts aan het opnemen is. Reageer ik wel op de batch dan start de koe wel op.

Nu heb ik met onderstaand script zitten klooien en stop ie dus de koe wel als ik hem in standby zet, maar als hij uit standby komt dan krijg ik niet de batch te zien.....

code:

' On Standby Close MCE.vbs version 0.9b
'    Thanks to: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_powermanagementevent.asp
'    Made by Nico Berlee
'    

Dim wmiPowerManagementEvent, objProcess, WSHSHell 
Const cntEventEnteringSuspend1 = 4 'in stanby
Const cntEventEnteringSuspend2 = 7 'uit standby
Const cntEventEnteringSuspend3 = 10 'power state change

Set wmiPowerManagementEvent = GetObject("winmgmts:").ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
   If wmiPowerManagementEvent.NextEvent.EventType = cntEventEnteringSuspend1 Then
    For Each objProcess in GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='muon1.exe'")
      objProcess.Terminate(0)
        Next
   End If

Loop

Set wmiPowerManagementEvent = GetObject("winmgmts:").ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
   If wmiPowerManagementEvent.NextEvent.EventType = cntEventEnteringSuspend3 Then
    
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.run "h:\vbs\start1.bat",1,true

   End If

Loop

het script wordt opgestart vanuit de map Startup in het startmenu.

Iemand een idee?

[ Voor 6% gewijzigd door Freemann op 17-02-2005 19:50 ]