[amel27]

Freezet,

Нужен батник »

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

D_Master

пример Drives.vbs из Flash Drive Disinfector »

тот же запрос на CMD:

Код:

For /F %%i In ('WMIC LogicalDisk Where "(DriveType=2 Or DriveType=3) And (MediaType=0 Or MediaType=11 Or MediaType=12 Or MediaType Is Null)" GET DeviceID^|Find ":"') Do @Echo %%i

[Rostlv]

amel27
Большое спасибо за то, что откликнулись. Хочу уточнить.

По вопросу 3, сначала проверить включена ли служба и только при её отключенном состоянии, включить.

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

[Freezet]

amel27, прошу прощения... что я должен сделать? если не разбираюсь в етом? ето не раздел помощи? я приложил усилия чтоб правильно и понятно задать вопрос....

Тема называется Нужна помощь в написании BAT.... чем не понравились мои слова?

Помощи не ждать?

[amel27]

Freezet
извиняюсь за назидательный тон, но незнание не освобождает от чтения справки (зачем шапка?),
от готового скрипта мало толку если вы сами не приложили к нему свою руку и голову

что я должен сделать?

разбить задачу на маленькие подзадачи, попытаться самостоятельно решить каждую в отдельности:

1. определить по имени файла имя архива;
2. добавить файл в архив и удалить оригинал;
3. определить по имени архива имя папки назначения;
4. отделить старые архивы от актуальных;
5. переместить старые архивы в свои папки хранения;
6. удалить старые папки хранения в каталоге назначения.

каждая задача может решаться по разному

Код:

@Echo Off
SetLocal EnableDelayedExpansion

Set DIR1=C:\CSTRIKE
Set DIR2=C:\DEMOS
Set NMAX=5

For %%i In ("%DIR1%\*.dem") Do Rar m -ep %%i.rar %%i
For %%i In ("%DIR1%\*.rar") Do (
    Set $NAME=%%~ni
    Set $Y=!$NAME:~3,2!
    Set $M=!$NAME:~5,2!
    Set $D=!$NAME:~7,2!

    If "%DATE%" NEQ "!$D!.!$M!.20!$Y!" (
        Set $PATH=%DIR2%\!$D!.!$M!.!$Y!\
        If Not Exist "!$PATH!" MD "!$PATH!"
        MOVE "%%i" "!$PATH!"
    )
)
For /F "Delims=" %%i In ('DIR /O:-D /A:D /B "%DIR2%\*"') Do (
    Set /A NMAX -=1
    If !NMAX! LSS 0 RD /S /Q "%DIR2%\%%i"
)

З.Ы. Кстати, про секунды неясность - в имени файла их нет, а имя архива в условии в точности совпадает именем файла... или старые файлы перезаписываются?.. тогда и в архиве они тоже будут перезаписываться!

[amel27]

Rostlv,

сначала проверить включена ли служба и только при её отключенном состоянии, включить »

NET START сам это делает

мой CMD работает, я беру и завершаю процесс CMD.exe, скрипт прекращает работу, но остаётся в директории запуска, отсюда вопрос, как самоудалить мой файл в случае принудительного завершения процесса? »

из батника никак

запретить принудительное завершение моего процесса CMD.exe »

от кого защищать? Администратор может завершить любой процесс (кроме SYSTEM), обычный пользователь только свои

[Freezet]

amel27, справку читал и основные команды понимаю.. Кое что могу и сам но все же каждый будет делать по своему, как ему легче. мой вариант будет плохим, так как новичок

При запуске батника пишет Системе не удается найти указанный путь

на счет совпадений имен думаю их не будет или очень-очень редко

[amel27]

При запуске батника пишет Системе не удается найти указанный путь »

скопируй RAR.EXE в каталог с батником или добавь путь к нему в переменную PATH

на счет совпадений имен думаю их не будет »

тогда в каждом архиве будет по одному файлу, т.е. накопительных архивов не будет

[Rostlv]

amel27, уточнения по вопросу 4:
Нужно, чтобы этот код работал на протяжении всего CMD-скрипта, а не единожды, как это сделать?

Set PROCESS=cmd.exe For /F %%i In ('TaskList^|FindStr /BIC:"%PROCESS%"') Do Set PROCNAME=%%i If "%PROCNAME%"=="" ( Del /F /Q %0 GoTo :EOF )

уточнения по вопросу 7:
Код работает, но записывает квадратики, как установить правильную кодировку?

[amel27]

Rostlv

чтобы этот код работал »

нерабочий код, cmd.exe это тот же батник, т.е. типа: если меня "убили" - убрать свой "труп"
это какой такой "дух скрипта" будет потом удалять? если волнует безопасность, варианты:

- запускать батник из TEMP-каталога (рано или поздно удалится);
- компилировать батник в EXE-файл, тогда вскрыть код будет проблематично;
- отслеживать процесс другим скриптом или тем же, но запущенным в другом процессе, но простой проверки "CMD.EXE" будет недостаточно (оба процесса будут CMD.EXE)

записывает квадратики, как установить правильную кодировку? »

хранить текст батника в DOS-кодировке (синонимы: OEM, 866)

[DImaN!]

Добрый день. Я уже задавал этот вопрос в теме по AutoIT, но меня перенаправили сюда. Не могли бы Вы мне помочь с одной маленькой задачей, а именно:
Как можно в VBScript получить путь к текущей директории и zip-архиву. К примеру, на диске С в папке folder находится какой-то file.zip, нужно его распаковать средствами VBScript.
Но нужно, чтобы сам файл скрипт искал в той же директории, где и он сам находится (+ желательно, чтобы он искал все архивы и их распаковывал).
Вот пример моего кода, который как я написал распаковывает только указанный файл в указанной директории:

Код:

strZipFile = "c:\folder\file.zip"         
outFolder = "c:\folder" 
    
Set objShell = CreateObject( "Shell.Application" )
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions