كيفية استخدام schtask /query ووضع الإخراج في ملف نصي باستخدام vbscript و cmd

Question

إليك الرمز الذي لدي حاليًا:

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

في رأسي ، يجب أن يعمل هذا بشكل صحيح ، ويتم تشغيله بدون أخطاء ، ولكن لم يتم تحديث الملف النصي.

تم إنشاء الملف النصي بالفعل ، لذا لا داعي للقلق بشأن إنشاء متغير WScript

تعديل:

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"