Ошибка поиска файла в директории темр

@sam6780 · Регистрация: 22.01.2013

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

Подскажите пожалуйста , как прописать путь к папке темр в vbs , что б оькрыть файл... пишет что не найден файл.... (((
Что может быть не так и каааак решить. Спасибо

FlasherX · 26.07.2019, 02:14

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

либо в Documents & Seetings

Опять же, с чего бы? Речь шла о папке "Мои документы":

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

%USERPROFILE%\Documents\

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

ааа, и полный путь кпримеру для appdata

Всё верно. И там у вас должны быть OpenCL32.dll и OpenCL64.dll.

P.S.: И кириллицей пока нигде не пахнет.

wscript.exe и unsecapp.exe в процессах убивайте перед тестами.

@sam6780 · 27.07.2019, 02:12 **[ТС]**

Доброго времени суток . И снова я после работы на связи... Смотрите FlasherX, ... По данной теме с уверенностью говорю, что проверил работу скрипта путем проверки искомого файла в ранее созданную (инную, чем в условии) директорию, а именно : C:\1\ При данном условии скрипт абсолютно четко выполняет свой сценарий. файл opencl.dll как и следовало ожидать моментально копируется из AppData но или из Документов в вышеуказанную папку. Но, как только я снова ставлю директорию C:\Windows\System32\1\ (и папку -"1") в конце - я создал для удобства, что бы не искать искомый файл долго среди иного множества файлов в System32. Ну вот Тогда при таком пути запускаю скрипт и ничего не происходит. У меня мысль. Может тут дело в каких либо разрешениях... или в чем то подобном ... ?

FlasherX · 27.07.2019, 09:04

1. Папка 1 уже есть в system32?
2. UAC включён? Под админом выполнять пробовали?
3. В последнем варианте в 11 строке "\1\" вместо "\" ставили?

@sam6780 · 27.07.2019, 19:53 **[ТС]**

FlasherX, Вчера надеялся написать об частичном успехе данного дела в конце всего но форум был временно недоступен.

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

1. Папка 1 уже есть в system32?
2. UAC включён? Под админом выполнять пробовали?
3. В последнем варианте в 11 строке "\1" вместо "" ставили?

Значит первое - отвечу на ваши вопросы:
1. папка 1 есть ... все норм.
2. Насчет UAC. Все сложно... У меня несколько виртуальных и несколько обычных компов ... И поэтому не знаю

)
3. не пробовал... проверю.

Еще вчера я повторно создал папку "1" на диске "С" и - Скрипт успешно выполнил свою функцию... Да
только вот, когда я снова вернулся к системным папкам то снова все осталось как было - безрезультатно - ну тут к гадалке не ходи, что в повышении прав пользователю дело. Я поискал на просторах интернета. Много не рабочих но вот какой то кусочек vbs кода, который и вставил в ваш скрипт. Все получается после этого он выводит окно якобы для подтверждения действий скрипта... А как раз мне не нужны окна , что бы бегать к каждому пк и подтверждать... Как сделать, что бы просто повышал права и выполнял действие предназначенное для него...
Вот и скрипт, который у меня вышел вконце :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 Option Explicit: Dim oWSH, SINK, Arch, oFName, iFName
 
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If
'actual code
 
'------------------------------------------------------
Const Sec   = 2            ' секундный интервал запроса
Const BName = "opencl"      ' базовое имя файла
Const Ext   = ".dll"       ' расширение файла
Const oPath = "C:\Windows\System32\1\" ' путь с проверяемым файлом
'------------------------------------------------------
Set oWSH = CreateObject("WScript.Shell")
If oWSH.Environment("System")("PROCESSOR_ARCHITECTURE") = "x86" Then Arch = 32 Else Arch = 64
oFName = oPath & BName & Ext
iFName = oWSH.SpecialFolders(5) & "\" & BName & Arch & Ext
Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
If Not CreateObject("Scripting.FileSystemObject")._
FileExists(oFName) Then SINK_OnObjectReady "", ""
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceDeletionEvent WITHIN " & Sec &_
" WHERE Targetinstance ISA 'CIM_DataFile' AND TargetInstance.Name='" & Replace(oFName, "\", "\\") & "'"
Do: WSH.Sleep 60000000 :Loop
 
Sub SINK_OnObjectReady(n,o)
  oWSH.Run "%ComSpec% /q/c mklink /h """ & oFName & """ """ & iFName & """", 0
End Sub

Дааа, и кстати на счет:

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

3. В последнем варианте в 11 строке "\1" вместо "" ставили?

не буду пробовать. Вспомнил, что переписывал путь на обычный C:\Windows\System32\ и ничего тоже не менялось - абсолютно. Файлы "не пришли" )

FlasherX · 27.07.2019, 20:38

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

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

Как запустить VBScript, JScript с повышенными привилегиями?

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

не буду пробовать. Вспомнил, что переписывал путь на обычный C:\Windows\System32\ и ничего тоже не менялось

Это не повод не использовать. В этом коде берётся нужная системная папка. А значит, при другой букве сис. диска или имени папки Windows он сработает.

@sam6780 · 28.07.2019, 14:42 **[ТС]**

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

не буду пробовать. Вспомнил, что переписывал путь на обычный C:\Windows\System32\ и ничего тоже не менялось
Это не повод не использовать. В этом коде берётся нужная системная папка. А значит, при другой букве сис. диска или имени папки Windows он сработает.

... не проблема протестировать... но в конечном итоге файл "opencl" должен находиться в дире \system32\ ... (
И я нашел парочку рабочих скриптов vbs. Прикрученные до основного кода - все они отлично справляются с моей задачей. Но не до конца. Затребование подтверждения действия это для меня не подходит ... Могло бы быть. Но это очень не удобно для меня... Для данного файла нужно как то написать код, может на cmd или я не знаю... , что бы просто он копировал себя при необходимости без лишнего окна... Вот цель.. Понимаю, что это система не дает этого сделать и все тут... Но что, разве не существует решения вообще никакого тогда ? ( ... Я и так вам очень признателен за то, что вы FlasherX, вы мне здорово помогли... Но если бы уже до конца знать ну или сделать... и поставить точку в этом вопросе было бы норм...

Добавлено через 5 минут
а пока пользуюсь выходным то займусь поиском ... Может , что то и найду подобное ...

FlasherX · 28.07.2019, 18:14

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

но в конечном итоге файл "opencl" должен находиться в дире \system32\ ...

И в чём проблема, если я пишу, что именно туда он и помещает линк?

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

Но что, разве не существует решения вообще никакого тогда ?

Тема со ссылками. Сюда же: RunAsTool.

@sam6780 · 01.08.2019, 00:39 **[ТС]**

FlasherX, а можна просьбу, что бы переделать последний код немного, где те файлы, что копировались : "opencl.dll" с одной диры в другую...- что бы вместо копирования скритп запускал обычный батничек, при условии если нету того самого файла "opencl.dll" - в директории "C:\Windows\System32\

код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Dim oWSH, oFSO, SINK, Arch, oFName, iFName
'———————————————————————————————————————————————————
Const Sec   = 2         ' секундный интервал запроса
Const BName = "OpenCL"  ' базовое имя файла
Const Ext   = ".dll"    ' расширение файла
'———————————————————————————————————————————————————
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oWSH.Environment("System")("PROCESSOR_ARCHITECTURE") = "x86" Then Arch = 32 Else Arch = 64
oFName = oFSO.GetSpecialFolder(1) & "\" & BName & Ext
iFName = oWSH.SpecialFolders(5) & "\" & BName & Arch & Ext
Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
If Not oFSO.FileExists(oFName) Then SINK_OnObjectReady "", ""
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceDeletionEvent WITHIN " & Sec &_
" WHERE Targetinstance ISA 'CIM_DataFile' AND TargetInstance.Name='" & Replace(oFName, "\", "\\") & "'"
Do: WSH.Sleep 60000000 :Loop
 
Sub SINK_OnObjectReady(n,o)
  oWSH.Run "%ComSpec% /q/c mklink /h """ & oFName & """ """ & iFName & """", 0
End Sub

FlasherX · 01.08.2019, 08:44

sam6780, не понимаю, зачем вы дублируете мой код. Это нехороший тон.
Посмотрите на 21 строку. Там же видно, что и так запускается комстрока с командой создания хардлинка. Это не копирование в полном смысле. Зачем вам ещё и батник?

@sam6780 · 01.08.2019, 22:50 **[ТС]**

FlasherX, извините за это - не хотел ( ... Вернее больше не буду. Спасибо за правильное замечание...
...

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

Посмотрите на 21 строку. Там же видно, что и так запускается комстрока с командой создания хардлинка. Это не копирование в полном смысле. Зачем вам ещё и батник?

Тут просто я в коде скрипта vbs я понимаю ровным счетом - ничего ( поэтому хотел перейти на батник в конце. В нем бы прописал копи и все... Так было проще мне ... Так кажется

FlasherX · 02.08.2019, 20:00

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

Так кажется

Отчего же так кажется? Может, создание ссылок требует повышения? Тогда вернёмся к начальному варианту с копированием:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim oWSH, oFSO, SINK, Arch, oFName, iFName
'———————————————————————————————————————————————————
Const Sec   = 2         ' секундный интервал запроса
Const BName = "OpenCL"  ' базовое имя файла
Const Ext   = ".dll"    ' расширение файла
'———————————————————————————————————————————————————
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oWSH.Environment("System")("PROCESSOR_ARCHITECTURE") = "x86" Then Arch = 32 Else Arch = 64
oFName = oFSO.GetSpecialFolder(1) & "\" & BName & Ext
iFName = oWSH.SpecialFolders(5) & "\" & BName & Arch & Ext
Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
If Not oFSO.FileExists(oFName) Then SINK_OnObjectReady "", ""
Sub SINK_OnObjectReady(n,o): oFSO.CopyFile iFName, oFName: End Sub
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceDeletionEvent WITHIN " & Sec &_
" WHERE Targetinstance ISA 'CIM_DataFile' AND TargetInstance.Name='" & Replace(oFName, "\", "\\") & "'"
Do: WSH.Sleep 60000000 :Loop

@sam6780 · 03.08.2019, 06:11 **[ТС]**

нууу не совсем...

Дело все в том, что нужно, в конце, по вот такому сценарию : оставить проверку каталога "C:\Windows\System32" на предмет наличия файла: "opencl.dll"
После чего, если его нет в данной директории - просто запустить бат файл например "start.bat", что находится в директории AppData.
Но тут тоже нужно оставить функцию выбора разрядности, а значит bat файла будет два: "start32.bat" и "start64.bat"
Это мне даст возможность прописать в bat файле команду по копированию нужного мне opencl.dll в нужную мне директорию - без подтверждения, т.е. в обход UAC... что мне и надо было в конце )

FlasherX · 03.08.2019, 10:52

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

без подтверждения, т.е. в обход UAC

В прошлой теме жалоб не необходимость повышения не было. Или о ней умолчалось?

@sam6780 · 03.08.2019, 12:05 **[ТС]**

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

В прошлой теме жалоб не необходимость повышения не было. Или о ней умолчалось?

Соовсем не умолчалось. Просто я прошлую тему создал с задачей копировать из D в C а это не так сложно. Я не учел что в системных директориях будет сложно это сделать ((( Я не програмист я так се... - любитель. Но по ходу , чего то пытаюсь научиться в виду своего не большого свободного времени. А т.к. в конце мне нужно , что бы файл библиотеки opencl копировался в случае потребности в системную директорию то это правда немного другое. Я бы сам на cmd сделал... но не хочу т.к. для этого скрипт vbs более подходит,а я в нем ни бум бум поэтому вас и просил с помощью ( Вот как то так.

FlasherX · 03.08.2019, 12:29

А с чего вы взяли, что если скрипт не копирует, то бат обязательно скопирует?
Вы последний вариант проверяли?

@sam6780 · 04.08.2019, 12:40 **[ТС]**

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

Вы последний вариант проверяли?

пробовал ... Строка: 15 Символ: 30 "Разрешение отклонено"

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

А с чего вы взяли, что если скрипт не копирует, то бат обязательно скопирует?

Помониторив изрядно интернет - я нашел способ. Он немного не стандартный но мне подходит.
Суть в том, что бы поместить opencl.dll в файл с расширением .cab Это файл системы для обновления ОС.
затем нужно либо набрать из командной строки команду либо запустить бат с прописаным кодом (так удобней)
Вот эта команда. При этом ОС видя файл обновления - не будет требовать разрешения , а просто распакует его.

Windows Batch file
1
wusa C:\Folder\file_x.cab /quite /extract:%systemroot%\system32\sysprep\

НО! ОС распакует файл в system32\sysprep\ по этому я нашел как изменить место распаковки но пока не могу открыть ресурс

вот ресурс, с которого почрпнул инфу:
https://docs.microsoft.com/ru-... 3(v=vs.90)

Это коннечно очень накручено... Но это все , что я нашел ...

FlasherX · 04.08.2019, 15:16

А не проще создать задачу в планировщике с запуском скрипта от системы? Мониторинг же в течении всего дня нужен, полагаю. Если бы не минимальное ограничение в минуту на опрос, то можно было бы вообще без скрипта обойтись.

Ещё такой отладочный вариант попробуйте:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Dim oWSH, oFSO, oWMI, oFile, oSINK, Arch, oFName, E
'———————————————————————————————————————————————————
Const Sec   = 2         ' секундный интервал запроса
Const BName = "OpenCL"  ' базовое имя файла
Const Ext   = ".dll"    ' расширение файла
'———————————————————————————————————————————————————
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
If oWSH.Environment("System")("PROCESSOR_ARCHITECTURE") = "x86" Then Arch = 32 Else Arch = 64
oFName = oFSO.GetSpecialFolder(1) & "\" & BName & Ext
Set oFile = oWMI.Get("CIM_DataFile.Name='" & oWSH.SpecialFolders(5) & "\" & BName & Arch & Ext & "'")
Set oSINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
If Not oFSO.FileExists(oFName) Then SINK_OnObjectReady "", ""
Sub SINK_OnObjectReady(n, o): E = oFile.Copy(oFName) : If E Then Check E End If :End Sub
oWMI.ExecNotificationQueryAsync oSINK, "SELECT * FROM __InstanceDeletionEvent WITHIN " & Sec &_
" WHERE Targetinstance ISA 'CIM_DataFile' AND TargetInstance.Name='" & Replace(oFName, "\", "\\") & "'"
Do: WSH.Sleep 60000000 :Loop
 
Sub Check(Error)
  Select Case Error
    Case 2  Msg "Доступ запрещен"
    Case 8  Msg "Неизвестный сбой"
    Case 9  Msg "Недопустимое имя файла"
    Case 10 Msg "Объект уже существует"
    Case 14 Msg "Каталог не пуст"
    Case 15 Msg "Нарушение обмена"
    Case 16 Msg "Исходного файла не существует"
    Case 17 Msg "Привилегия, необходимая для операции, недопустима"
    Case 21 Msg "указан недопустимый параметр"
  End Select
End Sub
 
Sub Msg(Text)
  oWSH.Popup Text & "!", 1.4, " Ошибка резервного копирования      ", 4144
End Sub

Для извления/создания cab есть extrac32/makecab, если что. Да и один пример упаковки тут на VBS приводил.

@sam6780 · 05.08.2019, 22:52 **[ТС]**

FlasherX, проверил - выскакивает табличка "Доступ запрещен"

FlasherX · 05.08.2019, 23:24

sam6780, понял. А на вопрос ответить? C schtasks помогу, если надо.

@sam6780 · 06.08.2019, 00:00 **[ТС]**

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

А не проще создать задачу в планировщике с запуском скрипта от системы? Мониторинг же в течении всего дня нужен, полагаю. Если бы не минимальное ограничение в минуту на опрос, то можно было бы вообще без скрипта обойтись.

Было бы проще. Но у меня несколько Vbox машин и это еще не все... и проще было бы просто перетащить файл и активировать его.
А настройка каждой машины и ноутбука весьма утомительная штука... (
Я тут кое что нашел еще...На одном из хакерских форумов... Если бы вы помогли разобраться, а то не совсем понимаю , что куда вставлять и как этот файл запустить. Выкладываю статью:
...метод похож на тот , что я описывал выше но только, как мне кажется - он получше будет....
Вообщем: Суть метода в том, что для обхода UAC в нашей библиотеке создается
COM-объект IFileOperation. Он позволяет скопировать файл куда угодно
(в том числе в системную директорию \system32\ и ее подкаталоги), автоматически повышая для этого привилегии, так как функция будет иметь флаг
auto-elevate.
Вот пример использования объекта IFileOperation для копирования
файла в системный каталог.
или Метод внедрения своей библиотеки в процесс explorer.exe рассматривается в этом примере.
...

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

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@sam6780 3 / 3 / 1 Регистрация: 22.01.2013 Сообщений: 222

	Ошибка поиска файла в директории темр 24.07.2019, 10:40. Показов 4665. Ответов 44 Метки нет (Все метки) Подскажите пожалуйста , как прописать путь к папке темр в vbs , что б оькрыть файл... пишет что не найден файл.... ((( Что может быть не так и каааак решить. Спасибо 0

@sam6780 3 / 3 / 1 Регистрация: 22.01.2013 Сообщений: 222
	27.07.2019, 02:12 [ТС]
	Доброго времени суток . И снова я после работы на связи... Смотрите FlasherX, ... По данной теме с уверенностью говорю, что проверил работу скрипта путем проверки искомого файла в ранее созданную (инную, чем в условии) директорию, а именно : C:\1\ При данном условии скрипт абсолютно четко выполняет свой сценарий. файл opencl.dll как и следовало ожидать моментально копируется из AppData но или из Документов в вышеуказанную папку. Но, как только я снова ставлю директорию C:\Windows\System32\1\ (и папку -"1") в конце - я создал для удобства, что бы не искать искомый файл долго среди иного множества файлов в System32. Ну вот Тогда при таком пути запускаю скрипт и ничего не происходит. У меня мысль. Может тут дело в каких либо разрешениях... или в чем то подобном ... ? 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,797
	27.07.2019, 09:04
	1. Папка 1 уже есть в system32? 2. UAC включён? Под админом выполнять пробовали? 3. В последнем варианте в 11 строке "\1\" вместо "\" ставили? 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,797
	01.08.2019, 08:44
	sam6780, не понимаю, зачем вы дублируете мой код. Это нехороший тон. Посмотрите на 21 строку. Там же видно, что и так запускается комстрока с командой создания хардлинка. Это не копирование в полном смысле. Зачем вам ещё и батник? 0

@sam6780 3 / 3 / 1 Регистрация: 22.01.2013 Сообщений: 222
	03.08.2019, 06:11 [ТС]
	нууу не совсем... Дело все в том, что нужно, в конце, по вот такому сценарию : оставить проверку каталога "C:\Windows\System32" на предмет наличия файла: "opencl.dll" После чего, если его нет в данной директории - просто запустить бат файл например "start.bat", что находится в директории AppData. Но тут тоже нужно оставить функцию выбора разрядности, а значит bat файла будет два: "start32.bat" и "start64.bat" Это мне даст возможность прописать в bat файле команду по копированию нужного мне opencl.dll в нужную мне директорию - без подтверждения, т.е. в обход UAC... что мне и надо было в конце ) 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,797
	03.08.2019, 12:29
	А с чего вы взяли, что если скрипт не копирует, то бат обязательно скопирует? Вы последний вариант проверяли? 0

@sam6780 3 / 3 / 1 Регистрация: 22.01.2013 Сообщений: 222
	05.08.2019, 22:52 [ТС]
	FlasherX, проверил - выскакивает табличка "Доступ запрещен" 0

FlasherX 6999 / 2884 / 1109 Регистрация: 06.06.2017 Сообщений: 9,797
	05.08.2019, 23:24
	sam6780, понял. А на вопрос ответить? C schtasks помогу, если надо. 0