Set process_set= GetObject("winmgmts:").InstancesOf("Win32_Process")
 For Each process In process_set
     WScript.Echo  "Name" & vbTab & vbTab & process.Name
  IF Not IsNull(process.ExecutablePath)  THEN
     WScript.Echo  "ExecutablePath" & vbTab  & process.ExecutablePath
  END IF
     WScript.Echo  "ProcessID" & vbTab  & process.ProcessID
     WScript.Echo  "Priority" & vbTab  & process.Priority
     WScript.Echo  "ThreadCount" & vbTab  & process.ThreadCount
     WScript.Echo  "WorkingSetSize" & vbTab  & process.WorkingSetSize
  WScript.Echo vbCrLf & vbCrLf
Next