Option Explicit
Dim objWMIService,Processes,Process, CommandLine, WshShell, i,j
Set WshShell = WScript.CreateObject("WScript.Shell")

Dim GamesList, PcList
PcList = Array ("Prim-1554-03","|")
GamesList = Array("sol.exe","spider.exe","PINBALL.EXE","winmine.exe","freecell.exe","mshearts.exe","|")
i= 0 
j= 0 

Do While PcList (j)<>"|"
   Do While GamesList(i)<>"|"

	WshShell.objWMIService = GetObject("winmgmts:\\"+PcList(j)+"\root\cimv2")
	
	WshShell.Processes = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+GamesList(i)+"'")

	If Processes.Count =>  1  Then
	    For Each Process In Processes 
	        Process.Terminate	
		msgbox GamesList(i)
	    Next
	End If
	i=i+ 1 
   Loop
   i= 0 
   j=j+ 1 
Loop

Option Explicit
Dim objWMIService,Processes,Process, CommandLine, WshShell, i,j
Set WshShell = CreateObject("WScript.Shell")

Dim GamesList, PcList
PcList = Array ("Prim-1554-03","|")
GamesList = Array("sol.exe","spider.exe","PINBALL.EXE","winmine.exe","freecell.exe","mshearts.exe","|")
i= 0 
j= 0 

Do While PcList (j)<>"|"
   Do While GamesList(i)<>"|"

	set objWMIService = GetObject("winmgmts:\\"+PcList(j)+"\root\cimv2")
	
	set Processes = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+GamesList(i)+"'")

	If Processes.Count =>  1  Then
	    For Each Process In Processes 
	        Process.Terminate	
		msgbox GamesList(i)
	    Next
	End If
	i=i+ 1 
   Loop
   i= 0 
   j=j+ 1 
Loop