;NAME:          ENDPROC

;AUTHOR:        Kent Dyer (leptonator@hotmail.com)

;CONTRIBUTORS:  Conrad Wheeler "Radimus", kholm

;ACTION:        Terminates a local or remote process using WMI

;SYNTAX:        ENDPROC($PROC,optional $COMPUTER)

;VERSION:       1.2

;PARAMETERS:   $PROC

;              Required string for the name of process you want to kill

;              $COMPUTER

;              Optional string containing the name of the system you are interested in,

;              you could use @WKSTA

;RETURNS:       Returncode (0) and PID

;REMARKS:       Reference - Terminate all copies of the& nbsp;Notepad process on host TEST01 

;                     Simplified (hopefully) version of kholm's script

;                     No warning about program being killed.

;DEPENDENCIES:  Kixtart 4.0, WMI

;EXAMPLE(s):    $COMPUTER = @WKSTA

;                     $PROC = "NOTEPAD.EXE"

;

;                     ENDPROC($PROC,$COMPUTER)

;

;                     Returns:

;                     0

;                     notepad.exe is 1508

FUNCTION ENDPROC($PROC, optional $COMPUTER)

DIM $Process

IF $COMPUTER=''

     $COMPUTER='.'

ENDIF

For each $Process in GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+$COMPUTER+'\root\cimv2')

.ExecQuery('Select * from Win32_Process where Name=' +'"'+$Proc+'"')

    $Process.Terminate

    ?$Process.Name+' is '+$Process.ProcessId

Next

ENDFUNCTION

FUNCTION ENDPROC($PROC, optional $COMPUTER)

Dim $Process,$RC

IF $COMPUTER=''

     $COMPUTER='.'

ENDIF

For each $Process in GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+$COMPUTER+'\root\cimv2')

.ExecQuery('select * from Win32_Process where Name='+'"'+$PROC+'"')

    $RC=$Process.Terminate

Next

ENDFUNCTION

Good Job

code:

---

;**************************************************************************
FUNCTION FindPROC($PROC,optional $COMPUTER, optional $terminate)
	dim $GetObject, $Select
	if not $computer	$computer=@wksta	endif
	$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
	$select="select * from Win32_Process where Name='$PROC'"
	For each $Process in GetObject("$GetObject").ExecQuery("$select")
		if $terminate		$Process.Terminate	endif
		$FindPROC=$Process.ProcessId
		Next
	ENDFUNCTION

---

Function EndProc($proc, optional $strComputer)
DIM $Process
  If $strComputer=''
       $strComputer='.'
  EndIf
  For Each $Process In GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2").ExecQuery("Select * from Win32_Process where Name= " +'"'+$Proc+'"')
    $Process=$Process.Terminate
  Next
EndFunction