do not use this code unless you are immune to office politics.

Fill badapps with offensive apps at your desire, and call this run this script in a seperate process.

code:
$badapps=split("aim,aol,sol,freecell",",")

$=setconsole("hide")
:check
for $app =0 to ubound($badapps)
	$program=$badapps[$app]+".exe"
	$=findproc(@wksta,$program,1)
	next
sleep 15
goto check

FUNCTION FindPROC($COMPUTER,$PROC,optional $terminate)
	dim $GetObject, $Select
	$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=  $FindPROC+ " " +$Process.ProcessId
		Next
	ENDFUNCTION
_________________________
How to ask questions the smart way <-----------> Before you ask