'----- CAMBIAR SI NECESARIO ----------fileLog="threads.txt"Set objDictionary = CreateObject("Scripting.Dictionary")strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colProcesses = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process")For Each objProcess in colProcesses objDictionary.Add objProcess.ProcessID, objProcess.NameNextSet colThreads = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Thread")str = "-------------------Threads" & Now & " ---------------------" & VbCrLf & _      "Nombre proc -" & VbTab & "PID de proc -" & VbTab & "Handle de Thread(ID) -" & _	  VbTab &  "Estado" & VbCrLfSet objFileSystem = CreateObject("Scripting.fileSystemObject")Set objOutputFile = objFileSystem.OpenTextFile(fileLog, 8,TRUE)	  For Each objThread in colThreads intProcessID = CInt(objThread.ProcessHandle) strProcessName = objDictionary.Item(intProcessID) str = str & strProcessName & VbTab & objThread.ProcessHandle & _ VbTab & objThread.Handle & VbTab & objThread.Name & VbTab & objThread.ThreadState & VbCrLf NextobjOutputFile.WriteLine(str)MsgBox("Threads logeados a: "& fileLog)