Скрипт отключения программы по времени

@Skalpel_NV · Регистрация: 17.05.2018

Студворк — интернет-сервис помощи студентам

Приветствую уважаемые господа профессионалы своего дела! Подскажите как мне с помощью планировщика заданий, отключать по времени программу и не давать возможности ее дальнейшего включения, до определенного времени затем также по времени разрешить ее включение?

С уважением, Тимофей.

======================================== ======================================== ===================

@Skalpel_NV · 04.11.2020, 00:35 **[ТС]**

Пробел есть сейчас проверил 4444.vbs /stop вот так выглядит.
Перезагрузил комп все равно не работает.

FlasherX · 04.11.2020, 00:54

Для меня это уже слишком...
Вернёмся к обсуждению после изучения матчасти: 1, 2.

@Skalpel_NV · 04.11.2020, 01:14 **[ТС]**

Все же сделал по вашему алгоритму.

FlasherX · 04.11.2020, 13:36

Будем честны, вообще мимо того, что я писал.

Сообщение от FlasherX

Можно создать и путём выполнения подобных команд:

Сообщение от FlasherX

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

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

Сообщение от Skalpel_NV

путь указали к файлу wscript.exe

Почитайте информацию по ссылкам, не ленитесь. И себе и помогающим только на пользу. Берегите своё и чужое время.

Кстати, с nircmd и перечитыванием политик я тогда поспешил. И без того заведётся:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Name = "notepad.exe"
Hive = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun"
With CreateObject("WScript.Shell")
  If wsh.Arguments.Named.Exists("stop") Then
    For Each Pr In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT Status From Win32_Process Where Name='" & Name & "'")
      Pr.Terminate
    Next
    .RegWrite Hive, 1, "REG_DWORD"
    .RegWrite Hive & "\1", Name, "REG_SZ"
  Else On Error Resume Next: .RegDelete Hive & "\1" End If
End With

@Skalpel_NV · 05.11.2020, 00:04 **[ТС]**

Читал но не могу понять, это вам легко понять вы с этим каждый день работаете. Все равно не могу разобраться, изменил скрипт по вашему шаблону, но не сработало, у вас по такой схеме сработало, может у меня что-то с операционной системой? WIN8.

@Skalpel_NV · 05.11.2020, 00:10 **[ТС]**

Вот так правильно?

@Skalpel_NV · 05.11.2020, 00:15 **[ТС]**

Вот так

FlasherX · 05.11.2020, 05:51

Сообщение от Skalpel_NV

Читал но не могу понять

По второй ссылке? Не верю...

Утилита schtasks.exe является стандартным средством управления планировщиком и позволяет создавать, удалять, изменять и опрашивать запланированные задачи на локальном или удаленном компьютере.

Как по этому описанию можно додуматься вставлять команду с её выполнением прямо в Планировщик? Ума не приложу...
Я писал о выполнении указанных команд с schtasks из комстроки/консоли! Неужели это надо ещё раз повторить?
В планировщике уже появятся задания NoAllowProgramRun и AllowProgramRun. Всё, что в них надо поправить, это путь к скрипту в параметрах к wscript.exe и время вызова во втором задании. Всё!

@Skalpel_NV · 06.11.2020, 14:20 **[ТС]**

Приветствую, сегодня пригласил программиста 1С он что то пытался сделать но тоже нечего сделал, говорит не будет работать этот скрипт, он открыл блокнот говорит видите скрипт этот создан на примере программы которую надо закрыть блокнот, и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней. Но в итоге воз и ныне там. Не смог нечего сделать.

@Skalpel_NV · 06.11.2020, 14:41 **[ТС]**

Вот что за окно выскакивает.

FlasherX · 06.11.2020, 14:51

Сообщение от Skalpel_NV

Приветствую, сегодня пригласил программиста 1С
и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней

И этот программист не увидел, что имя файла программы и так задаётся первой строкой? Вот такой вот программист, однако ж...

@Skalpel_NV · 06.11.2020, 15:04 **[ТС]**

говорит возможно кто писал скрипт допустил ошибку поэтому он исправил, но скрипт все равно не сработал. Сейчас я ему написал он ответил что увы не смог разобраться. Предложил спросить на форуме https://www.cyberforum.ru/

FlasherX · 06.11.2020, 15:17

Skalpel_NV, никакой ошибки в моём коде нет.
Может, кто-то просто код скопировал без первой строки или убрал её случайно/нарочно?

@Skalpel_NV · 06.11.2020, 15:22 **[ТС]**

Нет скопировал все как вы прислали.

FlasherX · 06.11.2020, 15:26

Сообщение от Skalpel_NV

говорит не будет работать этот скрипт

А ему было сообщено?:

Сообщение от FlasherX

наличие в параметрах ключа /stop завершает программу с запретом, иначе разрешает

Сообщение от FlasherX

Для теста же никто не мешает запустить скрипт с параметром из любой комстроки.

Отсюда по schtasks и создаются задачи NoAllowProgramRun (с ключом /stop) и AllowProgramRun (без оного). Что тут может быть неясно?

@Skalpel_NV · 06.11.2020, 15:30 **[ТС]**

Сейчас перезагрузил комп, теперь другую ошибку бросает.

@Skalpel_NV · 06.11.2020, 15:32 **[ТС]**

что за засада такая.

FlasherX · 06.11.2020, 15:37

Перезагрузка для теста не требуется. Задачу можно выполнить простой командой: schtasks /run /tn NoAllowProgramRun.
А если просто запустить <path to>.vbs /stop из окна Выполнить (Win+R), будет эта ошибка?

@Skalpel_NV · 06.11.2020, 15:41 **[ТС]**

Сообщение от FlasherX

из окна Выполнить (Win+R), будет эта ошибка?

Да, снова ошибка.

FlasherX · 06.11.2020, 16:13

Закрыт доступ к правке реестра. См. статью.

Новые блоги и статьи Все статьи Все блоги /
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58

	Скрипт отключения программы по времени 27.05.2019, 19:55. Показов 9222. Ответов 78 Метки schtasks, vbs (Все метки) Приветствую уважаемые господа профессионалы своего дела! Подскажите как мне с помощью планировщика заданий, отключать по времени программу и не давать возможности ее дальнейшего включения, до определенного времени затем также по времени разрешить ее включение? С уважением, Тимофей. ======================================== ======================================== =================== 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	04.11.2020, 00:35 [ТС]
	Пробел есть сейчас проверил 4444.vbs /stop вот так выглядит. Перезагрузил комп все равно не работает. Миниатюры 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	04.11.2020, 00:54
	Для меня это уже слишком... Вернёмся к обсуждению после изучения матчасти: 1, 2. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	04.11.2020, 01:14 [ТС]
	Все же сделал по вашему алгоритму. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:04 [ТС]
	Читал но не могу понять, это вам легко понять вы с этим каждый день работаете. Все равно не могу разобраться, изменил скрипт по вашему шаблону, но не сработало, у вас по такой схеме сработало, может у меня что-то с операционной системой? WIN8. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:10 [ТС]
	Вот так правильно? Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:15 [ТС]
	Вот так Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 14:20 [ТС]
	Приветствую, сегодня пригласил программиста 1С он что то пытался сделать но тоже нечего сделал, говорит не будет работать этот скрипт, он открыл блокнот говорит видите скрипт этот создан на примере программы которую надо закрыть блокнот, и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней. Но в итоге воз и ныне там. Не смог нечего сделать. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 14:41 [ТС]
	Вот что за окно выскакивает. Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:04 [ТС]
	говорит возможно кто писал скрипт допустил ошибку поэтому он исправил, но скрипт все равно не сработал. Сейчас я ему написал он ответил что увы не смог разобраться. Предложил спросить на форуме https://www.cyberforum.ru/ 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	06.11.2020, 15:17
	Skalpel_NV, никакой ошибки в моём коде нет. Может, кто-то просто код скопировал без первой строки или убрал её случайно/нарочно? 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:22 [ТС]
	Нет скопировал все как вы прислали. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:30 [ТС]
	Сейчас перезагрузил комп, теперь другую ошибку бросает. Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:32 [ТС]
	что за засада такая. 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	06.11.2020, 15:37
	Перезагрузка для теста не требуется. Задачу можно выполнить простой командой: `schtasks /run /tn NoAllowProgramRun`. А если просто запустить `<path to>.vbs /stop` из окна Выполнить (Win+R), будет эта ошибка? 0

FlasherX 7001 / 2885 / 1110 Регистрация: 06.06.2017 Сообщений: 9,810
	06.11.2020, 16:13
	Закрыт доступ к правке реестра. См. статью. 0