» Задачи на bat-файлах 10

lizun
В "батанике" это - Nul.

Код: Echo tra-ta-ta>Nul

InHead
Какой вопрос такая помощь
Хочешь больше - впиши в верхний фильтр класса дисковых устройств несуществующую службу. Получишь серьезный синий экран при старте. Сделать можно при помощи консольной утилитки reg.exe и главное что навскидку следы к тебе не приведут
ЗЫ - только вначале узнай как это чинить. Я лично в этом помогать не расположен

BVV63

Цитата:

В "батанике" это - Nul.

Спасибо, дружище! Кажется, заработало!

res2001
спасибо, ответ я получаю, осталось заставить программу понимать его...

Всем привет!
Вот возникла тема: надо все заглавные буквы в именах файлах переделать на строчные.
Все файлы с короткими именами, в имени содержаться только цифры и английские буквы.
Как бы это красиво сделать?

Добавлено:
нагуглил вот такой вариант.

res2001
Цитата:

Вот возникла тема: надо все заглавные буквы в именах файлах переделать на строчные.

Код: @echo off
for /f "delims=" %%a in (' dir /b /l ') do ren "%%~a" "%%~a"

Как сделать активным окно уже запущенной программы батником или скриптом?

wolf0425
Отлично! Как чувствовал, что должно быть красивое решение

вариант с переименованием также в подпапках:

Код: @echo off
set "Folder=z:\folder"
for /f "delims=" %%i in ('dir %Folder% /b/s/ad') do call:renfile "%%i"
call:renfile "%Folder%"
goto:eof
:renfile
pushd %1
for /f "delims=" %%a in ('dir /b/l/a-d') do ren "%%a" "%%a"
popd
exit /b 0

wolf0425
Rush
Спасибо!
Дир /Л самое то, уже прикрутил. Работает как надо!

Цитата:

вариант с переименованием также в подпапках:

Код: @echo off
for /f "delims=" %%a in (' dir /a-d /s /b /l ') do move "%%~a" "%%~a"

wolf0425

Цитата:

for /f "delims=" %%a in (' dir /a-d /s /b /l ') do move "%%~a" "%%~a"

Самый из всех правильный вариант.

king_stiven

Цитата:

Как сделать активным окно уже запущенной программы батником или скриптом?

Код: Option Explicit

Dim ProcName
Dim strWQL
Dim objWMI
Dim ProcItem

ProcName = "notepad.exe"
strWQL = "Select * from Win32_Process Where Name = '" & ProcName & "'"
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

For Each ProcItem In objWMI.ExecQuery(strWQL)
CreateObject("WScript.Shell").AppActivate ProcItem.ProcessId
Next

Цитата:

WshShell.AppActivate("title")

это вот так?

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("title")

Title берём из tasklist? Чёта не идёт. В общем надо развернуть уже запущенную прогу и сделать её активной, вне зависимости от того свёрнута она или нет, активна или нет.

Добавлено:
Rush
работает, если не свёрнута, теперь нужно и для

Цитата:

В общем надо развернуть уже запущенную прогу и сделать её активной, вне зависимости от того свёрнута она или нет, активна или нет.

king_stiven
Используй cmdnow. Штатными средствами вряд ли возможно.

Rush
Ну где ж ты раньше был! Я на nircmd думать начал было.

Цитата:

Ну где ж ты раньше был! Я на nircmd думать начал было.

CMDOW всем хорош, только вот его Касперский не любит (касперычу автор nircmd не башляет, часом?)...

Цитата:

CMDOW всем хорош, только вот его Касперский не любит

И уж больно давно не обновлялся (с дек. 2004). Видимо утилиту или ее код использовали по "назначению". Кстати не только Каспер кричит.

Цитата:

И уж больно давно не обновлялся (с дек. 2004).

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


Цитата:

Видимо утилиту или ее код использовали по "назначению".

можно подумать что "по назначению" nircmd или cscript использовать сложнее... Параноя какая-то избирательная - тут угрозу видим там не видим, зато ставим себе галочку "боремся с хаками"...

wolf0425
Наверное потому, что nircmd это просто коллекция задокументированных функций, а cmdow, возможно, какой-то нативный код. Или он(а), cmdow, первым предоставил потенциально опасные возможности.

Привет! Есть SFX архив с паролем созданный с помощью WinRAR, что не могу сделать. Нужно фаил exploit.exe у которого пароль ru-board занести в автозагрузку а именно в [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices] а сам архив будет расположен в директории C:\Windows\exploit\. Желательно чтоб распаковка архива не была привязана к месту расположения самой программы WinRAR.

kostyamks, неправильный подход к задаче, если есть SFX зачем использовать внешний WinRAR ???
RAR SFX-архив делай без пароля и указывай в нём куда надо распаковаться. Либо я видел ZIP-сборки, в которых можно сделать архив с паролем и вводить его не надо, он сам распаковывается. В ключ реестра добавляешь заранее заготовленный REG-файл если там много параметров прописано как у сервиса, если одна строчка - то можно без REG-файла добавить напрямую командой REG.
Как я понимаю 7-Zip более всего удобен для создания различных сборок, умеет запускать батники и команды типа REG ADD в невидимом режиме.

Да, и ещё - у меня на XP вообще нет такой ветки реестра:
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices]

Misha1989

Цитата:

Да, и ещё - у меня на XP вообще нет такой ветки реестра:

Она есть в Win7.

Вот что у меня уже получилось:

@echo off
cls
set Folder=C:\Windows\exploit\
if "%Folder%"=="" goto fpr
copy exploit.exe "%Folder%"
%SystemRoot%\System32\reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices" /v exploit /t REG_SZ /d "\"%ProgramFiles%\WinRAR\rar.exe\" X -pru-board -o+ -ibck \"%Folder%\exploit.exe\"" /f
goto end

kostyamks
Возможно что я недопонял зачем вам нужен такой геморрой c внешним винраром, но решается всё гораздо проще.

SFX делаете без пароля, внутри пишете эти команды и любые какие ещё нужны, например на запуск файла который внутри архива (Programma.exe), это можно прямо в строчку к батнику дописать.

Комментарий архива SFX-RAR:

Код: ;Расположенный ниже комментарий содержит команды SFX-сценария

Path=%TEMP%
SavePath
Setup=cmd /c "reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices" /v exploit /t REG_SZ /d "%sfxname%" /f & start "" Programma.exe"

Silent=1
Overwrite=1

Misha1989
Спасибо.

Добрый день!
Подскажите, пожалуйста, как получить время изменения файла?
%~t1, показывает и время и дату, а мне бы только время.

Сделал ро другому, вопрос снят

Можно ли в титле батника разным цветом писать, чтоб на панели задач было видно?

lorents
for /F "tokens=1,2 delims= " %a in ('dir /TW %FILE% ^| findstr /B /R "[0-9]"') do @echo %a %b

Добавлено:
king_stiven
По-моему это нельзя не только для батников, а вообще для всех окон.

vu1tur
Спасибо, сейчас посмотрю

vu1tur

Цитата:

По-моему это нельзя не только для батников, а вообще для всех окон.

Для батников нельзя, а вообще можно.

Цитата:

а вообще можно.

а приведешь пример программы с разноцветным заголовком?