Dim $Plist[5]=["svchost.exe","lsass.exe","services.exe","winlogon.exe","csrss.exe"]
$list = ProcessList()
for $i = 1 to $list[0][0]
For $x=0 To UBound($Plist)-1
If $list[$i][0]=$Plist[$x] Then
ContinueLoop
Else
ProcessClose($list[$i][0])
EndIf
Next
next