protocol = "winmgmts:"
security = "{impersonationLevel=impersonate}!\\"
computer = "."
module = "\root\cimv2"

Set objWMIService = GetObject(protocol & security & computer & module)
    
query = "Select * from Win32_Process Where name='wscript.exe' "
Set colItems = objWMIService.ExecQuery( query ) 
 
For Each objItem in colItems 
    'Wscript.StdOut.WriteLine "Name: " & objItem.Name
    'Wscript.StdOut.WriteLine "ID: " & objItem.ProcessId
    procID = objItem.ProcessId
    query = "SELECT * FROM Win32_PerfRawData_PerfProc_Process Where IdProcess='" & procId & "'"
		set colCPUUSage = objWMIService.ExecQuery( query )

		for each objProc in colCPUUSage
			if objProc.PercentProcessorTime > 5 then
				exitCode = objItem.Terminate
				if exitCode = 0 then msgbox "Zamknieto proces wscript.exe !"
			end if
		next
Next