Как использовать Schtask /Query и поместить вывод в текстовый файл с помощью VBScript и CMD

Question

Вот код, который у меня есть в настоящее время:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "SCHTASKS /QUERY > winning.txt"

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

Текстовый файл уже создан, поэтому мне не нужно беспокоиться о создании переменной WSCRICT

РЕДАКТИРОВАТЬ:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd /c SCHTASKS /QUERY > winning.txt"

Спасибо, Дэвид! Я смотрел на эти две линии в течение нескольких часов!

Answer 1

Добавление «cmd /c» к передней части команды

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd /c SCHTASKS /QUERY > winning.txt"