VBScript Захват StdOut из ShellExecute

VBScript Захват StdOut из ShellExecute

Я пытаюсь запустить следующий фрагмент кода как часть инструмента для сбора и регистрации некоторых соответствующих диагностик системы. Цель этого фрагмента — собрать результат выполнения команды:

vssadmin list writers

Фрагмент выглядит следующим образом:

'   Set WshShell = CreateObject("WScript.Shell")
'   WScript.Echo sCurPath & "\vsswritercheck.bat"
'   Set WshShellExec = WshShell.Exec("elevate.cmd cmd.exe /c " & sCurPath & "\vsswritercheck.bat")

Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cmd.exe", sCurPath & "\vsswritercheck.bat", , "runas", 1
vsswriter = VSSWriterCheck

Select Case oShell.Status
    Case WshFinished
        strOutput = oShell.StdOut.ReadAll
    Case WshFailed
        strOutput = oShell.StdErr.ReadAll
End Select
WScript.Echo strOutPut
vsswriter = strOutPut

С первым фрагментом кода (закомментированным) я могу запустить команду и захватить stdout из пакетного файла. Во втором фрагменте кода я не могу захватить stdout.

Мне нужно иметь возможность запускать пакетный скрипт с повышенными правами, поэтому я ищу компромисс между функциональностью этих двух вариантов.

Я не могу запустить весь вызывающий скрипт в повышенном режиме из-за ограничений других функциональных возможностей.

Я ищу любые идеи о том, как добавить этот вывод в мой журнал, поскольку у меня заканчиваются варианты, находящиеся в пределах базовых скриптов.

решение1

strcmd="cmd /c " & sCurPath & "\vsswritercheck.bat"
return = wshshell.run(strcmd , 0 , true)
if return=0 then
    blnSuccess = True
else
    blnSuccess = False
end if

решение2

А как насчет использования их обоих?

Используйте закомментированный вами код, который работает в режиме без повышенных прав, и добавьте дополнительный тест, в котором, если требуются повышенные права, скрипт вместо этого вызовет себя с помощью ShellExecute(), в результате чего последующий вызов Exec() уже будет иметь повышенные права и по-прежнему захватывать stdout.

Это немного странно, но не требует усилий.

Связанный контент