Полезные скрипты CMD/BAT | SafeZone

вы всегда будете получать вспышку окна с Exec(). Вы можете использовать выполнить команду в скрытом окне. Но вы не можете напрямую захватить выходные данные команды с помощью Run(). Вам нужно будет перенаправить вывод во временный файл, который ваш VBScript затем может открыть, прочитать и удалить.

например:

With CreateObject("WScript.Shell")

    ' Pass 0 as the second parameter to hide the window...
    .Run "cmd /c tasklist.exe > c:out.txt", 0, True

End With

' Read the output and remove the file when done...
Dim strOutput
With CreateObject("Scripting.FileSystemObject")

    strOutput = .OpenTextFile("c:out.txt").ReadAll()
    .DeleteFile "c:out.txt"

End With

на FileSystemObject класс имеет методы, такие как GetSpecialFolder() чтобы получить путь к папке Windows temp и GetTempName() чтобы создать временное имя файла, которое вы можете использовать вместо жесткого кодирования выходного имени файла, как я сделал выше.

также обратите внимание, что вы можете использовать с tasklist.exe чтобы создать CSV-файл, который должен сделать его разбор намного проще.

наконец, are VBScript “native” способы получения списка запущенных процессов. В WMI это Win32_Process класс, например, может сделать это без необходимости Run/Exec.

редактировать:

для полноты, я должен упомянуть, что ваш сценарий can перезапустить себя в скрытом окне консоли, где вы можете запустить Exec() молча. К сожалению, это скрытое окно консоли также скроет ваш вывод из таких функций, как WScript.Echo(). Помимо этого, однако, вы, вероятно, не заметите никаких различий в работе вашего скрипта под cscript vs wscript. Вот пример этого метод:

' If running under wscript.exe, relaunch under cscript.exe in a hidden window...
If InStr(1, WScript.FullName, "wscript.exe", vbTextCompare) > 0 Then
    With CreateObject("WScript.Shell")
        WScript.Quit .Run("cscript.exe """ & WScript.ScriptFullName & """", 0, True)
    End With
End If

' "Real" start of script. We can run Exec() hidden now...
Dim strOutput
strOutput = CreateObject("WScript.Shell").Exec("tasklist.exe").StdOut.ReadAll()

' Need to use MsgBox() since WScript.Echo() is sent to hidden console window...
MsgBox strOutput  

конечно, если ваш скрипт ожидает параметры командной строки, они также должны быть перенаправлены при перезапуске вашего скрипта.

Изменить 2:

еще одна возможность – использовать буфер обмена Windows. Вы можете передать вывод своей команды в clip.exe утилиты. Затем извлеките текст с помощью любого количества доступных COM-объектов, которые могут получить доступ к содержимому буфера обмена. Для пример:

' Using a hidden window, pipe the output of the command to the CLIP.EXE utility...
CreateObject("WScript.Shell").Run "cmd /c tasklist.exe | clip", 0, True

' Now read the clipboard text...
Dim strOutput
strOutput = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")