List = "C:\IgnoreListProcesses_ANSI.txt"
List = vbLf & CreateObject("Scripting.FileSystemObject").OpenTextFile(List).ReadAll & vbCr
For Each Pr In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2").ExecQuery("Select Name from Win32_Process")
  If InStr(List, vbLf & Pr.Name & vbCr) = 0 Then Pr.Terminate
Next

"Select * from win32_process" 

strcomputer="."
set FSO=CreateObject("Scripting.filesystemobject")
set readfile=FSO.openTextFile("C:\users\Scriptman\kill.txt")
set wmi=GetObject("winmgmts:{impersonationlevel=impersonate}!\\" _
&strcomputer&"\root\cimv2")
do until readfile.atEndOfStream
	processname=readfile.readline
		set colprocesses=wmi.execquery("Select * from win32_process where name = '" _
		&processname&"'")
			if colprocesses.count>0 then
					for each obj in colprocesses
						If obj.GetOwner (Username) = 0 Then
							if username="Scriptman" then
							'wscript.echo "killing "&obj.name
							obj.terminate()
							end if
						end if
					next
			end if
		
loop