Kill (x) process after running for (x) time

[Vaner]

i was needed to kill some job running on a pc , after a period of time .

ex. all notepad that been running for 12h , must be close .

will not affect newer process .

u can change $iDateCalc > $timeup to $iDateCalc < $timeup will kill (x) process a soon it start

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Ghostsvrcleanup.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.5.3 (beta)
 Author:         myName

 Script Function:
    Process monitor

#ce ----------------------------------------------------------------------------

#include <Date.au3>

Func ProcessMon()


$process = "'ghostsrv.exe'"
$timeup = "12"
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"  
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process Where NAME = " & $process &"", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
      $time = WMIDateStringToDate($objItem.CreationDate)
      $PID = $objItem.ProcessId 
      $Starttime = StringRight($time, 8)
      ;Msgbox(1,"WMI Outputime",$time)
      $Date = StringTrimRight($time, 9)
      ;Msgbox(1,"WMI Outputdate",$pid)
      $array = StringSplit($date, '/', 1)
      $FixDate = $array[3] & '/' & $array[1] &'/' & $array[2] & ' ' & $Starttime 
       ;Msgbox(1,"WMI fixdate",$FixDate)
      $iDateCalc = _DateDiff( 'h',$FixDate,_NowCalc())
      ;Msgbox(1,"nowcalc",$iDateCalc)
      if $iDateCalc > $timeup then
         ProcessClose($PID) 
      EndIf

       Next 
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Process" )
Endif
  $time =""
  $PID=""

EndFunc
 
Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

ProcessMon()

[jokke]

I simply love it, i for one can find good use for this, thanks

Edited October 29, 2007 by jokke

[Topper]

i was needed to kill some job running on a pc , after a period of time .

ex. all notepad that been running for 12h , must be close .

will not affect newer process .

u can change $iDateCalc > $timeup to $iDateCalc < $timeup will kill (x) process a soon it start

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Ghostsvrcleanup.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.5.3 (beta)
 Author:         myName

 Script Function:
    Process monitor

#ce ----------------------------------------------------------------------------

#include <Date.au3>

Func ProcessMon()


$process = "'ghostsrv.exe'"
$timeup = "12"
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"  
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process Where NAME = " & $process &"", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
      $time = WMIDateStringToDate($objItem.CreationDate)
      $PID = $objItem.ProcessId 
      $Starttime = StringRight($time, 8)
      ;Msgbox(1,"WMI Outputime",$time)
      $Date = StringTrimRight($time, 9)
      ;Msgbox(1,"WMI Outputdate",$pid)
      $array = StringSplit($date, '/', 1)
      $FixDate = $array[3] & '/' & $array[1] &'/' & $array[2] & ' ' & $Starttime 
       ;Msgbox(1,"WMI fixdate",$FixDate)
      $iDateCalc = _DateDiff( 'h',$FixDate,_NowCalc())
      ;Msgbox(1,"nowcalc",$iDateCalc)
      if $iDateCalc > $timeup then
         ProcessClose($PID) 
      EndIf

       Next 
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Process" )
Endif
  $time =""
  $PID=""

EndFunc
 
Func WMIDateStringToDate($dtmDate)

    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

ProcessMon()

Is it possible to be modified script as to monitor if Process get 100% from CPU for $time?

In other words - to kill overloading process under Win2k3 ?