check my code

Might as well write it with the input file as well to see if that might be of assistance too.
Just put the Process names into a text file in whatever location and point the script sFilePath variable to it to read the process names into the dictionary.

sComputer = "."
sFilePath = "C:\temp\processes.txt"
x = 0
 
Set ows = CreateObject ("WScript.Shell")
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(sFilePath,1,False)
 
Do Until objFile.AtEndOfStream
	sTemp = objFile.ReadLine
	If Not objDictionary.Exists(sTemp) Then objDictionary.Add UCASE(sTemp),""
Loop
 
objFile.Close
 
Do While i =0
	Set oWMIService = GetObject("winmgmts:\\" & scomputer & "\root\cimv2")
	Set colProcesses = oWMIService.ExecQuery("SELECT Name FROM Win32_Process")
	 
	For Each oProcess In colProcesses
		With oProcess
			If objDictionary.Exists(UCASE(.Name)) Then
				x = x + 1
			Else
				.Terminate
			End If
		End With
	Next
	x = 0
	WScript.Sleep 12000
Loop

Select allOpen in new window

tested ur dictionary code, getting error in line 53, SWbemObjectEx: Not found...

please recheck code,

re checked your disctionay code on xp, it worked but only once. loop not working.. surprised why it did not worked on vista properly although i added other required files.  please review closely and guide me.

Not sure I've run it on XP and Vista now and it's running OK. Loops every 12 seconds and kills off any processes not listed.

i retested , code is running in vista too. but it exits after one run. not running in loop.. just have a look of what i m working on. and incase any change is required please add.

more strange is loop is not working in vista nor in xp.

sComputer = "."
x = 0
 
Set ows = CreateObject ("WScript.Shell")
Set objDictionary = CreateObject("Scripting.Dictionary")
 
If Not objDictionary.Exists("explorer.exe") Then objDictionary.Add UCASE("explorer.exe"),""
If Not objDictionary.Exists("jusched.exe") Then objDictionary.Add UCASE("jusched.exe"),""
If Not objDictionary.Exists("acrotray.exe") Then objDictionary.Add UCASE("acrotray.exe"),""
If Not objDictionary.Exists("alg.exe") Then objDictionary.Add UCASE("alg.exe"),""
If Not objDictionary.Exists("svchost.exe") Then objDictionary.Add UCASE("svchost.exe"),""
If Not objDictionary.Exists("system idle process") Then objDictionary.Add UCASE("system idle process"),""
If Not objDictionary.Exists("system") Then objDictionary.Add UCASE("system"),""
If Not objDictionary.Exists("smss.exe") Then objDictionary.Add UCASE("smss.exe"),""
If Not objDictionary.Exists("csrss.exe") Then objDictionary.Add UCASE("csrss.exe"),""
If Not objDictionary.Exists("winlogon.exe") Then objDictionary.Add UCASE("winlogon.exe"),""
If Not objDictionary.Exists("services.exe") Then objDictionary.Add UCASE("services.exe"),""
If Not objDictionary.Exists("lsass.exe") Then objDictionary.Add UCASE("lsass.exe"),""
If Not objDictionary.Exists("cfsmsmd.exe") Then objDictionary.Add UCASE("cfsmsmd.exe"),""
If Not objDictionary.Exists("cnfagent.exe") Then objDictionary.Add UCASE("cnfagent.exe"),""
If Not objDictionary.Exists("spoolsv.exe") Then objDictionary.Add UCASE("spoolsv.exe"),""
If Not objDictionary.Exists("cam.exe") Then objDictionary.Add UCASE("cam.exe"),""
If Not objDictionary.Exists("mdm.exe") Then objDictionary.Add UCASE("mdm.exe"),""
If Not objDictionary.Exists("NTRtscan.exe") Then objDictionary.Add UCASE("NTRtscan.exe"),""
If Not objDictionary.Exists("Ofant.exe") Then objDictionary.Add UCASE("Ofant.exe"),""
If Not objDictionary.Exists("Tmlisten.exe") Then objDictionary.Add UCASE("Tmlisten.exe"),""
If Not objDictionary.Exists("sched.exe") Then objDictionary.Add UCASE("sched.exe"),""
If Not objDictionary.Exists("PccNTUpd.exe") Then objDictionary.Add UCASE("PccNTUpd.exe"),""
If Not objDictionary.Exists("cfnotsrvd.exe") Then objDictionary.Add UCASE("cfnotsrvd.exe"),""
If Not objDictionary.Exists("ccsmagtd.exe") Then objDictionary.Add UCASE("ccsmagtd.exe"),""
If Not objDictionary.Exists("cfFTPlungin.exe") Then objDictionary.Add UCASE("cfFTPlungin.exe"),""
If Not objDictionary.Exists("taskmgr.exe") Then objDictionary.Add UCASE("taskmgr.exe"),""
If Not objDictionary.Exists("wininit.exe") Then objDictionary.Add UCASE("wininit.exe"),""
If Not objDictionary.Exists("audiodg.exe") Then objDictionary.Add UCASE("audiodg.exe"),""
If Not objDictionary.Exists("wmiprvse.exe") Then objDictionary.Add UCASE("wmiprvse.exe"),""
If Not objDictionary.Exists("lsm.exe") Then objDictionary.Add UCASE("lsm.exe"),""
If Not objDictionary.Exists("ccsvchst.exe") Then objDictionary.Add UCASE("ccsvchst.exe"),""
If Not objDictionary.Exists("smsvchost.exe") Then objDictionary.Add UCASE("smsvchost.exe"),""
If Not objDictionary.Exists("wudfhost.exe") Then objDictionary.Add UCASE("wudfhost.exe"),""
If Not objDictionary.Exists("unsecapp.exe") Then objDictionary.Add UCASE("unsecapp.exe"),""
If Not objDictionary.Exists("dwm.exe") Then objDictionary.Add UCASE("dwm.exe"),""
If Not objDictionary.Exists("sistray.exe") Then objDictionary.Add UCASE("sistray.exe"),""
If Not objDictionary.Exists("sidebar.exe") Then objDictionary.Add UCASE("sidebar.exe"),""
If Not objDictionary.Exists("trustedinstaller.exe") Then objDictionary.Add UCASE("trustedinsatller.exe"),""
 
 
 
 
Do While i =0
	Set oWMIService = GetObject("winmgmts:\\" & scomputer & "\root\cimv2")
	Set colProcesses = oWMIService.ExecQuery("SELECT Name FROM Win32_Process")
	 
	For Each oProcess In colProcesses
		With oProcess
			If objDictionary.Exists(UCASE(.Name)) Then
				x = x + 1
			Else
				.Terminate
			End If
		End With
	Next
	x = 0
	WScript.Sleep 12000
Loop

Select allOpen in new window

i added wscript and cscript.exe too, now when i am running by double clicking  on vbs file, it is running in loop. but when i made exe of that with scriptcrypto , that is agian not running in loop. any other better converter

it worked. thanks

i made exe of it, when  i m running that, it opens one console with path of exe at console title. how to hide it? why console is coming.