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

res2001

Цитата:

sndRec32.exe /play /close /embedding ding.wav

res2001
Я имел в виду наводку на тему, где обсуждаются vbs-ки на форуме. Я хотел там парню объснить, что не так с его вэбээсей.

ComradG
http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=1491#1

res2001
И вправду, когда добавил usebackq, заработало. Не обратил внимания, что в том фрагменте тоже это слово имелось. Я почему-то до этого считал, что оно нужно для обычных кавычек .
Спасибо, буду знать.

gryu
а консольная прога не подойдет ?
типа - http://ss64.net/westlake/nt/ConGetFile.zip

boy999
Вот тебе решение твоего трабла http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=1491&start=1680#lt
mugil_cephalus
Спасибо за оперативную наводку и точный артиллеристский пристрел

mugil_cephalus
Цитата:

а консольная прога не подойдет ?

хз, 60к утилита на замену .vbs в 340 байт - это конечно круто, только вот у .vbs можно хоть флаги настроить - чтоб несуществующее имя вернуть не могло, или RO файлы заблокировать.

интересно, тот яваскриптовый вариант - только у gryu не работает или это массовое явление?

res2001

Цитата:

sndRec32.exe /play /close /embedding ding.wav

а где узнал фишку?

mugil_cephalus
нагуглил, сначала тут увидел, а потом еще в некоторых местах.

Цитата:

интересно, тот яваскриптовый вариант - только у gryu не работает или это массовое явление?

Просто у gryu жаба отключена в системе по дефолту наверное.

wolf0425
так если я правильно понял у gryu не только jscript но и vbs не работает -

Цитата:

Ось Windows 7.
Цитата:@echo off
1>%temp%\browse.vbs ...(

В ответ

Цитата:C:\Users\WINTES~1\AppData\Local\Temp\Browse.Vbs(1, 1) Ошибка выполнения Microsoft VBScript: Невозможно создание объекта контейнером ActiveX: 'UserAccounts.CommonDialog'
.

Добавлено:
wolf0425

Цитата:

интересно, тот яваскриптовый вариант - только у gryu не работает или это массовое явление?

тут то работало - Делаем паузу в командном файле стандартными средствами Windows

Цитата:

Код:
@set @x=0 /*
@echo off

cscript //nologo /e:jscript "%~f0" 10000

goto:eof */ if(isFinite(WScript.Arguments(0))) WScript.Sleep(WScript.Arguments(0))

wolf0425

Цитата:

интересно, тот яваскриптовый вариант - только у gryu не работает или это массовое явление?

У меня тож не работает. Ошибок не пишет.
ComradG

Цитата:

Просто у gryu жаба отключена в системе по дефолту наверное.

Нет. JavaScript он всегда в виндах доступен через csript или wscript.

mugil_cephalus
Полагаешь фаз ActiveX?

res2001
У меня под виртуалью работает.

Цитата:

Цитата:Код:
@set @x=0 /*
@echo off

cscript //nologo /e:jscript "%~f0" 10000

goto:eof */ if(isFinite(WScript.Arguments(0))) WScript.Sleep(WScript.Arguments(0))

вот такой комбайн работает ( проверил )

Добавлено:
ComradG

Цитата:

Полагаешь фаз ActiveX?

Цитата:

Проехали.

ComradG

Цитата:

Проехали.

- в другом смысле , - в смысле: не знаю в чем там дело....

mugil_cephalus

Цитата:

в смысле: не знаю в чем там дело...

Может на msdn'е чаво есть по сабжу?

mugil_cephalus
Цитата:

тут то работало - Делаем паузу в командном файле стандартными

да, я понял что у него UserAccounts.CommonDialog и MSComDlg.CommonDialog куда-то делись.
интересно, какие подобные объекты у виндов наиболее универсальны.

res2001

Цитата:

В 2000/XP и в Win2003 администраторы имеют доступ ко всем веткам реестра.

Ну попробуй отредактировать например
Код: HKEY_LOCAL_MACHINE\SYSTEM\ControlSetХХХ\Enum\USB\Vid_ХХХХХХ_ХХХХ

Цитата:

Ну попробуй отредактировать например
HKEY_LOCAL_MACHINE\SYSTEM\ControlSetХХХ\Enum\USB\Vid_ХХХХХХ_ХХХХ

плохой например - я ключик в HKLM\SYSTEM\ControlSet001\Enum\USB\Vid_0ea0&Pid_6803 добавил совершенно спокойно.
но где-то в списке действительно что-то недоступное было.

Добавлено:
Nomasster
Цитата:

да, запарился)

экпортируешь в текст
regedit /ea 11.reg HKEY_LOCAL_MACHINE\SYSTEM
фильтуешь чтоб остались только имена веток что надо прибить, тут findstr или sed тебе в помощь.
добавляешь REGEDIT4 в начало (если потер фильтрами) и приводишь все строки в вид типа
[-HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Enum\USB\Vid_0ea0&Pid_6803]
после чего вспомнив когда последний раз бэкапился добавляешь regedit /s %fullpath%\del4enado.reg в шедулер на следующую минуту.

Nomasster

Цитата:

Ну попробуй отредактировать например

Да, ты прав. Проверил на WinXP SP3. Завтра посмотрю на серверах и на Вин2000.
Права хитро распределены:
На ветки HKEY_LOCAL_MACHINE\SYSTEM\ControlSetХХХ\Enum\XXX\XXX_ХХХХХХ_ХХХХ\XXXXXXXX\Device Parameters администраторам доступ есть
на все остальные ветки в
HKEY_LOCAL_MACHINE\SYSTEM\ControlSetХХХ\Enum\ у админов доступ только на чтение.

Добавлено:
Nomasster
А может дать разрешение админам на Enum, спокойно сделать свои дела, а потом удалить разрешение.
Работать с разрешениями можно с помощью regini.
Вот ссылка на пример использования этой утилиты.

Подскажите, пожалуйста

Код: for %%i in (0,256) do for %%j in (0,5) do pngout -q -k1 -s1 -b%%i -f%%j -c3 -d1 %1

Цитата:

там где (0,256) здесь идет перебор значений 0 и 256

да, конечно, в полном соотвестствии с for /?

Цитата:

Я так понимаю что всех значений от 0 до 256

а самому проверить - никак?

mugil_cephalus
Цитата:

а консольная прога не подойдет ?
типа - http://ss64.net/westlake/nt/ConGetFile.zip

вообще говоря, срабатывает. Т.е. окошко выбора файла появляется и функионирует.
Остаётся вопрос как прикрутить.
Вот так вроде получается

Цитата:

for /f "tokens=*" %%a in ('congetfile') do set "filename=%%a"

Спасибо. А тоже самое но под выбор папки нет?

Цитата:

Остаётся вопрос как прикрутить.

Код:
FOR /F %%A IN ('CONGETFILE.EXE') DO SET "FILE=%%A"

igor_andreev
Ага. Уже нашёл.
Теперь выбор папки остался. (для сохранения)

gryu
file.vbs разве что...

Код:
Option Explicit
Dim oShell, oFolder, oFolderItem

On Error Resume Next
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0, "Select folder", &H0011, 17)
Set oFolderItem = oFolder.Items.Item
If Not Err<>0 Then Wscript.Echo oFolderItem.Path
Set oShell = Nothing
WScript.Quit

wolf0425
res2001
Ок, сэнкс, до работу дойду - буду пробовать0

Есть лог файл содержания:

Цитата:

05:05:05 Лок 00006476_1766299D5C1342BC8FA8C1150E02E28E.gzdat    Неверный формат     --->\ERRORDAT\Error_Form\102_6476\00006476_1766299D5C1342BC8FA8C1150E02E28E.gzdat
05:05:05 Лок 00006344_8979B829D54E45179DBF41973F166AED.gzdat    Старый файл     --->\ERRORDAT\Old_Data\102_6344\00006344_8979B829D54E45179DBF41973F166AED.gzdat
05:05:07 Лок 00006342_3D0B4E7FA6194869BDFD02BD393BECE0.gzdat    Неверный формат     --->\ERRORDAT\Error_Form\102_6342\00006342_3D0B4E7FA6194869BDFD02BD393BECE0.gzdat
05:06:15 *** 00001862_892EF8857345477C878E0630B5E79BE1.gzdat    Неверный формат     --->\ERRORDAT\Error_Form\0_0\00001862_892EF8857345477C878E0630B5E79BE1.gzdat

нужно убрать все что после описания, т.е. Неверный формат или Старый файл

Подскажите пожалуйста, срочно надо

SLIDER999

Код: @echo off
for /F "tokens=1-3" %%a in (test.txt) do echo %%a %%b %%c