[Liveofan]

Вообще не удаляет? и нет никакой возможности ((
плин обидно...
А можно из WSH запустить батник на удаление просто, т.е. в теле WSH написать исполняемый код батника и чтобы он работал.

[amel27]

Вообще не удаляет? »

удаляет если пройтись по всем вложенным ключам и удалять по списку "снизу", нужна рекурсивная функция... но нужна ли?

А можно из WSH запустить батник на удаление просто, т.е. в теле WSH написать исполняемый код батника и чтобы он работал »

можно через метод RUN - либо весь батник, либо код построчно (обрати внимание на кавычки):

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
Command = "REG ADD ""HKLM\SYSTEM\CurrentControlSet\Services\Cdrom"" /v AutoRun /t REG_DWORD /d 0 /f"
Return = WshShell.Run(Command, 1, true)

[Gennie]

Всем доброго дня суток.
Преамбула.

Код:

K:\PROCEDURES\Internal>dir /b|findstr /i feed
Feedback procedure.doc

Амбула.

Код:

K:\PROCEDURES\Internal>dir /b|findstr /i feed|start /b/max

K:\PROCEDURES\Internal>Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.

K:\PROCEDURES\Internal>Feedback procedure.doc
'Feedback' is not recognized as an internal or external command,
operable program or batch file.

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

[Petya V4sechkin]

Gennie, примерно так:

Код:

for /f "delims=" %i in ('dir /b *feed*') do start "" /b /max "%i"

Если сохранять в батник, %i заменить на %%i

[Gennie]

Спасибо. Я тоже думал сначала реализовать таким путём, правда потом подумал, почему бы не попробовать взять имя файла напрямую из потока, и вот те на... Хочется понять всё же до конца: это действительно проблема именно самой команды start, что она берёт из канальной передачи не всё, а только самое первое слово до пробела? Ведь судя по выводу, поток нормально передаёт полное имя файла.

[Petya V4sechkin]

Gennie, если вы запустите:

Код:

start /b /max Feedback procedure.doc

оно ведь не выполнится, понимаете?

[Gennie]

О, и правда, не подумал. Действительно не выполнится. И запихать кавычки туда тоже не получится. Значит, видимо, остаётся только через for. Благодарю!

[Liveofan]

amel27,
спасибо большое, все помогло )

[amel27]

Liveofan, тогда на всякий случай функция удаления с подключами на VBS

Код:

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS         = &H80000003

' Внимание! Скрипт удаляет всё "Избранное" Internet Explorer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites"

Call DeleteRegEntry(objReg, HKEY_CURRENT_USER, sPath)

Function DeleteRegEntry(objReg, sHive, strEnumPath)
    Dim subkey, arrSubKeys

    objReg.EnumKey sHive, strEnumPath, arrSubKeys
    If IsArray(arrSubKeys) Then
        For Each subkey In arrSubKeys
            Call DeleteRegEntry(objReg, sHive, strEnumPath &"\"& subkey)
        Next
    End If

    Call objReg.DeleteKey(sHive, strEnumPath)
End Function

[Rostlv]

Есть exe-файл, запускающий cmd. Если кликнуть по нему 1 раз - запускается cmd-файл, если кликнуть 2 раза, то запускается тот же cmd, только дважды, тем самым один мешает работе другому и соответственно происходят ошибки.
Нужна cmd-команда, не позволяющая запустить одновременно 2 и более cmd-файлов, причём её нужно указать не в exe-файле, а в самом cmd, если это возможно.