strComputer = "." 
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( "select * from win32_process" )
For Each objProcess in colProcesses
          Wscript.Echo "Process '" & objProcess.Caption & "' is running with priority " & objProcess.Priority & " and consists of " & objProcess.ThreadCount & " threads."
Next