[YuS_2]

И как я понимаю, поскольку PowerShell исполняет файлы только с определёнными расширениями (так?), фокус провернуть не удастся. »

Да ладно... можно ведь и так:

Код:

<# ::
@echo off
powershell -ex bypass -c "&{[scriptblock]::create((gc '%~f0' -enc OEM) -join [char]10).invoke()}"
pause&exit /b
#>
$a='Привет мир!'
$b='И вам не кашлять!'
$a
$b

И кстати, в powershell v 6.0 можно и так:

Код:

<# ::
@echo off
pwsh -f "%~f0" %*
pause&exit /b
#>
$a='Привет мир!'
$b='И вам не кашлять!'
$a
$b

[Iska]

Да ладно... можно ведь и так: »

Поясните, что с этим кодом делать?

[YuS_2]

Поясните, что с этим кодом делать? »

сохранить в файле, например, с именем run.bat и запустить
кодировка скрипта в первом варианте OEM и UTF8 без BOM во втором случае

PS Ах, да, надо в первом скрипте заменить pwsh на powershell... ну, чтобы встроенный отработал, а не v6.0
поправил скрипты

[Iska]

сохранить в файле, например, с именем run.bat и запустить кодировка скрипта в первом варианте OEM »

Спасибо, ясно. Работает.

Avast тут же отреагировал . Удалил пакетный файл и попытался удалить powershell.exe.

[megaloman]

Если без эмоций буквально прочесть поставленную задачу и не напрягать воображение, то:
1. У файлов есть общий префикс, в постановке он check
2. После префикса идёт номер, в постановке он <999
3. Надо получить новое имя:
префикс+номер, дополненный при необходимости нулями до трёх знаков+_+имя папки
То вот еще вариант (скрипт3), тупо и прямолинейно, зато надёжно

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "Folds="1111" "2222""
	Set "Pref=check"
	Set /A Max=1000

	Set "BoxOut=Z:\Box_In\Total"
	If Not Exist "%BoxOut%" Md "%BoxOut%"

	Set /A Max1=%Max%-1
	FOR /L %%n IN (0,1,%Max1%) DO FOR %%d IN (%Folds%) DO (
		FOR %%f IN ("%BoxIn%\%%~d\%Pref%%%n.*") Do (
			Set /A MMax=%Max%+%%n
			Call Copy "%%f" "%BoxOut%\%Pref%%%MMax:~1%%_%%~d%%~xf" >nul
			Call Ren "%%f" "%Pref%%%MMax:~1%%_%%~d%%~xf" >nul
		)
	)
Pause
GoTo :Eof

[YuS_2]

Удалил пакетный файл и попытался удалить powershell.exe. »

И правда что, чего это он там делает? Да и каталог windows, тоже подозрительный набор файлов содержит, надо и его проредить...

[Iska]

Если без эмоций буквально прочесть поставленную задачу и не напрягать воображение, то: …»

Скорее всего, как-нибудь так и есть.

YuS_2, видимо такой гибридный способ пошёл в массы. Вероятно — в массы недописателей-вирусомайнеров.

[YuS_2]

видимо такой гибридный способ пошёл в массы. Вероятно — в массы недописателей-вирусомайнеров. »

Возможно. Вот только, каким бы массовым ни был этот способ, в нем нет ничего вирусного, если не считать таковым вообще запуск скриптов в ОС. К тому же, антивирус должен вирусную активность контролировать (это мое личное мнение), а не быть комбайном, стерегущим каждый вздох, заодно и запуск скриптов, да плюс авторские права и т.д., и т.п., и тут же выписывающим "расстрел на месте".

[Iska]

Кхе-кхе … В оное время все, поголовно все значимые антивирусы ругались на банальный CreateObject("ADODB.Stream") … .SaveToFile bla-bla-bla, не особо затрудняя себя проверкой того, что и куда пишется при этом: сказано, что ADODB.Stream .SaveToFile позволяет создавать и записывать двоичные файлы — стало быть, ату его, ату! Причём, обходилось это банальнейшим образом, каким-нибудь CreateObject("ADO" & "DB.Str" & "eam") .

[jordan_74]

megaloman,

Спасибо огромное! Но у меня вопрос возник, можешь вот эти 2 строки прокомментировать?

Set "BoxIn=Z:\Box_In" Set "Folds="1111" "2222"" »

Может я что-то не правильно понимаю, Set "BoxIn=Z:\Box_In - это путь к исходной папке с файлами! ? но у меня две папки с исходными файлами, допустим 1 и 2. И в каждой лежат файлы с префиксом "check"