[deepred]

POOLEET,

можно сделать таким образом:

модификация post#1

Код:

strComputer = "." 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")

On Error Resume next

   For Each objProcess in colProcessList

       If objProcess.Name = "iexplore.exe" Then
          objProcess.Terminate()
          count =  count+1
          strtask = "Было завершено " & count & " экземпляра (ов) процесса "&  objProcess.Name
 
       Else

           If stingle Then
              strproc= strproc & objProcess.Name & "         " & vbTab
              stingle = False

           Else
              strproc= strproc & objProcess.Name & vbTab & Vbcrlf
              stingle = True

           End if

       End if
   Next 

          Wscript.Echo "Список запущенных процессов:" _
                  & vbcrlf & strproc & vbcrlf & strtask

модификация post#7 для просмотра в cmd

Код:

var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("cmd /k tasklist | More ", 1);

Вариация на тему post#7 для просмотра результата в текстовом файле

Код:

var WshShell =  new ActiveXObject("WScript.Shell");
var fso      =  new ActiveXObject("Scripting.FileSystemObject");
var log      =  fso.openTextFile("c:\\tasklog.txt", 2,  true);


var oExec    =  WshShell.Exec("cmd /k Echo off");
var InStream =  oExec.StdIn;

oExec.StdIn.WriteLine ("Chcp 1251 & Cls");
oExec.StdIn.WriteLine ("tasklist & Cls");
oExec.StdIn.WriteLine ("exit");
var TextStream = oExec.StdOut

while (!TextStream.AtEndOfStream)
{
     var Str = TextStream.Readline();
     log.WriteLine(Str);
}

log.Close();

var oExec = WshShell.Exec("notepad.exe  c:\\tasklog.txt");

while (oExec.Status == 0)
{
     WScript.Sleep(100);
}


flog = fso.GetFile("c:\\tasklog.txt");

var BtnCode = WshShell.Popup ("Удалить log-файл?", 0, "tasklog:", 4 + 32);

switch(BtnCode) {
   case 6:
      flog.Delete();
      break;
   case 7:
      break;
}