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

@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 минут
... и опять же метод какой то жесткий по моему но с другой стороны я не нашел пока ничего другого

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

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

	Ошибка поиска файла в директории темр 24.07.2019, 10:40. Показов 4721. Ответов 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 7002 / 2886 / 1110 Регистрация: 06.06.2017 Сообщений: 9,813
	27.07.2019, 09:04
	1. Папка 1 уже есть в system32? 2. UAC включён? Под админом выполнять пробовали? 3. В последнем варианте в 11 строке "\1\" вместо "\" ставили? 0

FlasherX 7002 / 2886 / 1110 Регистрация: 06.06.2017 Сообщений: 9,813
	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 7002 / 2886 / 1110 Регистрация: 06.06.2017 Сообщений: 9,813
	03.08.2019, 12:29
	А с чего вы взяли, что если скрипт не копирует, то бат обязательно скопирует? Вы последний вариант проверяли? 0

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

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