[решено] Как удалить ярлыки (в меню "Пуск" - "Программы", с рабочего стола, и т. д.)

[zolotykh]

ошибся начинается до загрузки оболочки (explorer),
[GuiRunOnce] - это секция файла winnt.sif, которая содержит команды, выполняющиеся при первом входе пользователя в систему
как сделать чтобы сработала после загрузки оболочки (explorer)?
$OEM$.rar (18.6 Kb)-мой проект
я уже незнаю что и придумать
дайте совет
запустил в ручную работает »
$OEM$.rar - это содержимое папки $OEM$ на твоем установочном диске? А winnt.sif - для примера положил?

[grat1]

zolotykh
ДА

[grat1]

ураа наконец таки доделал проверил несоклько раз --работает
самый простой способ
можно даже в справочник добавить :biggrin:
добавление твиков после загрузки оболочки Windows +
удаление папок после загрузки оболочки Windows +
установка приложение после загрузки оболочки Windows +
установка софта после загрузки оболочки Windows +
установка программ после загрузки оболочки Windows

CMDLINES.cmd C:\XPCD\$OEM$\CMDLINES.cmd

@echo off
SET CDROM=%~d0
set oem=%cdrom%\$OEM$
XCOPY /E /Q /y %OEM%\$$ %SYSTEMROOT%
cmdow @ /HID
@echo off
::Формирование постобработки
SET CDROM=%~d0
SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
SET i=100
::Пересортировка и удаление лишних ярлыков из меню Пуск
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce /V "clear" /D "clear.cmd" /f
exit



clear.cmd C:\XPCD\$OEM$\$$\System32\clear.cmd
@echo off
::Интеграция реестровых твиков
::FOR %%i in (a c d e f g h i j k l m n o p q r s t u v w x y z) DO IF EXIST "%%i:\tweaks.reg" (REGEDIT /S %%i:\tweaks.reg & exit)
::добавление твиков-твики не все сразу срабатывают нужна перегрузка
::1.reg -обычные твики
::2.reg -твики служб долго подгружаются,обьяснить это немогу
::когда я их обьединял не всегда срабатывали на Pentium 3-1,4Ghz/512mb/40GB
::хотя может быть у вас и сработают
::SET CDROM=%~d0
REGEDIT /S %cdrom%\$OEM$\1.reg
REGEDIT /S %cdrom%\$OEM$\2.reg


::сделано для того чтобы стработоло всё!!!так как оболочка :: учетная запись:: не успевает загрузится
::на старых компах требуется больше поставить время :: к примеру Pentium 2-3::
::изменить время 15 на 30
echo Сейчас %time:~0,-3%
:: пауза на 15 секунд
call :sleep 15
:: Другие действия
echo Сейчас %time:~0,-3%
goto :EOF

:sleep
echo Пауза на %1 секунд...
set /a ftime=%time:~6,-3%+%1
if %ftime% GEQ 60 set /a ftime-=60
:loop
set ctime=%time:~6,-3%
if /i %ftime% NEQ %ctime% goto :loop
::goto :EOF


cmdow @ /HID


del /f /q "%AllUsersProfile%\Главное меню\Microsoft Update.lnk"
del /f /q "%AllUsersProfile%\Главное меню\Программы\Стандартные\Мастер совместимости программ.*"
del /f /q "%AllUsersProfile%\Главное меню\Выбор программ по умолчанию.lnk"
del /f /q "%AllUsersProfile%\Главное меню\Каталог Windows.lnk"
del /f /q "%AllUsersProfile%\Главное меню\Программы\Стандартные\Знакомство с Windows XP.*"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Знакомство с Windows XP.*"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Мастер совместимости программ.*
del /f /q "%UserProfile%\Главное меню\Программы\Windows Movie Maker.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Удаленный помощник.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Internet Explorer"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Адресная книга.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Блокнот.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Командная строка.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Мастер совместимости программ.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Проводник.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Стандартные\Синхронизация.lnk"
DEL "UserProfile%\Главное меню\Программы\Outlook Express.lnk"
del /s /q "%AllUsersProfile%\Главное меню\Windows Update.lnk"
del /s /q "%AllUsersProfile%\Главное меню\Программы\Foxit Reader\Foxit Reader.lnk
RD /S /Q "%AllUsersProfile%\Главное меню\Программы\Foxit Reader"
del /f /q "%AllUsersProfile%\Главное меню\Программы\Утилиты\Dexpot.lnk"
RD /S /Q "%AllUsersProfile%\Главное меню\Программы\Утилиты"
del /f /q "%AllUsersProfile%\Главное меню\Программы\Opera 10.lnk
del /f /q "%AllUsersProfile%\Главное меню\Программы\WinDjView.lnk
del /f /q "%AllUsersProfile%\Главное меню\Программы\Windows Movie Maker.lnk
del /f /q "%AllUsersProfile%\Рабочий стол\Foxit Reader.lnk
del /f /q "%AllUsersProfile%\Главное меню\Активация Windows.lnk"
del "%AllUsersProfile%\Главное меню\Активация Windows.lnk"
del /f /q "%AllUsersProfile%\Главное меню\Активация Windows.*"
del /f /q "%UserProfile%\Рабочий стол\CDBurnerXP.lnk
del /f /q "%UserProfile%\SendTo\Сжатая ZIP-папка.*"
DEL "%UserProfile%\SendTo\Сжатая ZIP-папка.*"

del /q /s "%UserProfile%\Избранное\Веб-сайты Майкрософт\Рынок.url"
RD /S /Q "%UserProfile%\Избранное\Веб-сайты Майкрософт\"
del /q /s "%UserProfile%\Избранное\Веб-узлы Майкрософт\Домашняя страница IE.url"
RD /S /Q "%UserProfile%\Избранное\Веб-узлы Майкрософт\"
del /q /s "%UserProfile%\Избранное\Ссылки\Коллекция веб-фрагментов.url"
del /q /s "%UserProfile%\Избранное\Ссылки\desktop.ini"
RD /S /Q "%UserProfile%\Избранное\Ссылки\"
del /f /q "%UserProfile%\Главное меню\Программы\Internet Explorer.lnk"
del /s /q "%UserProfile%\Главное меню\Программы\Internet Explorer.lnk"
DEL "%UserProfile%\Главное меню\Программы\Internet Explorer.lnk"
del /f /q "%UserProfile%\Главное меню\Программы\Windows Media Player.lnk"
del /s /q "%UserProfile%\Главное меню\Программы\Windows Media Player.lnk"
del "%UserProfile%\Главное меню\Программы\Windows Media Player.lnk"

RD /S /Q "%AllUsersProfile%\Документы\Мои видеозаписи"
RD /S /Q "%AllUsersProfile%\Документы\Мои рисунки"
RD /S /Q "%AllUsersProfile%\Документы\Моя музыка"
RD /S /Q "%UserProfile%\Мои документы\Мои рисунки"
RD /S /Q "%UserProfile%\Мои документы\Моя музыка"
RD /S /Q "%UserProfile%\документы\Мои рисунки"
RD /S /Q "%UserProfile%\документы\Моя музыка"
DEL "%UserProfile%\SendTo\Адресат.MAPIMaill"
DEL "%UserProfile%\SendTo\Мои документы.mydocs"
del /f /q "%UserProfile%\SendTo\Адресат.*"
del /f /q "%UserProfile%\SendTo\Мои документы"
del /S /q "%UserProfile%\SendTo\Мои документы"
DEL "%UserProfile%\SendTo\документы.mydocs"
del /f /q "%UserProfile%\SendTo\документы.*"
del /S /q "%UserProfile%\SendTo\документы.*"
::почему del /s /q и del /f /q и DEL повторяются? нету времени все проверять:
::поставил все варианты чтобы точно сработало :)
EXIT




C:\XPCD\$OEM$\$$\System32\oobe\oobeinfo.ini
C:\XPCD\$OEM$\1.reg
C:\XPCD\$OEM$\2.reg

cmdlines.txt
[COMMANDS]
cmdlines.cmd
если где нашли ошибки в коде пишите
все файлы сохранять в 866 (OEM-русская) !!!!!!!!!!
внизу мой пример

[grat1]

Сlassic спасибо за помощь!!!
а как себе прикрутить Полезное сообщение

[grat1]

кстати заметил если отключить автозапуск ТО не срабатывает cmd
;Отключить автозапуск для всех типов приводов и устройств
;Применим к Windows 2000/XP
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer]
"NoDriveTypeAutoRun"=dword:000000ff

'ЭТОТ твик надо вносить самом конце установки
Сейчас работаю на тем что бы вносить все твики на разном этапе установки
так как не все оказываются твики срабатывают
наверное срабатывает защита реестора

[Wu-Tang]

grat1,
Почему это в самом конце?
Я его вношу из guirunonce и все нормально.

[grat1]

Wu-Tang
если на счет авто запуска то причину не знаю -не срабатывает -не сколько раз проверял
а на счет того что не через guirunonce -то не ярлыки не удаляются-нужна как видимо оболочка -несколько раз проверял

[Wu-Tang]

grat1,
Это не из-за запуска некоторые не срабатывают, у меня тоже некоторые не срабатывают.
Насчет ярлыков, это правда.
Я сделал так:

[GuiRunOnce]
Command0="%windir%\StartUp.vbs"

Следующего содержания:

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
win_dir = WshShell.ExpandEnvironmentStrings("%WinDir%")
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\001",win_dir&"\Del Files & Folders.vbs","REG_SZ"

Содержание Del Files & Folders.vbs:


On Error Resume Next

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

AllUsersProfile = WshShell.ExpandEnvironmentStrings("%AllUsersProfile%")
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")

fso.DeleteFile AllUsersProfile & "\Главное меню\Программы\*.*", True
fso.DeleteFile AllUsersProfile & "\Главное меню\*.*", True
fso.DeleteFile UserProfile & "\Главное меню\Программы\*.*", True
fso.DeleteFile UserProfile & "\Главное меню\*.*", True
fso.DeleteFile AllUsersProfile & "\Главное меню\Программы\Стандартные\Знакомство с Windows XP.*", True
fso.DeleteFile AllUsersProfile & "\Главное меню\Программы\Стандартные\Мастер совместимости программ.*", True
fso.DeleteFile UserProfile & "\Главное меню\Программы\Стандартные\Знакомство с Windows XP.*", True
fso.DeleteFile UserProfile & "\Главное меню\Программы\Стандартные\Мастер совместимости программ.*", True
fso.DeleteFile UserProfile & "\SendTo\Адресат.*", True
fso.DeleteFile UserProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile UserProfile & "\SendTo\Сжатая ZIP-папка.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Адресат.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Сжатая ZIP-папка.*", True

fso.DeleteFolder ProgramFiles & "\WindowsUpdate", True
fso.DeleteFolder ProgramFiles & "\Uninstall Information", True


Вуаля, и после ребута все чисто.

[grat1]

Wu-Tang
Это не из-за запуска некоторые не срабатываю »
привожу пример
guirunonce вставляю твик отключить автозагруку
после загрузки оболочки не включается clear.cmd
или это только у меня?

[Wu-Tang]

Что-то не понял ни черта. Можешь по-подробнее объяснить?

[grat1]

Wu-Tang
уже забыл что делал :)
на ковырялся с этим удалением что как уже не помню последовательность
но доделал своё удаление наконец-то ки
вот держите $OEM$ (http://forum.oszone.net/attachment.php?attachmentid=33350&d=1255291893)
от [GuiRunOnce]
я отказываюсь без пантовая команда - не срабатывают твики-незнаю почему
запуск через GuiRunOnce cmd-файлы нормально не все срабатываю(требуется оболочка с загруженной учетной записью)
осталось последнее как скинуть ярлык taskmgr.lnk и запустить его сразу же--в cmd файле
Главное меню\Программы\Автозагрузка\taskmgr.lnk

кстати заметил ,не заню почему, если объединить эти твики в один reg файл,то не срабатывают все---то есть частично(по крайне мере мои твики)
HKEY_CLASSES_ROOT.reg
HKEY_CURRENT_USER.reg
HKEY_LOCAL_MACHINE.reg
службы.reg

[Wu-Tang]

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

[Ivn78]

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

[Сlassic]

Del

[Deep2007]

Содержание Del Files & Folders.vbs:
Код:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
...
fso.DeleteFile UserProfile & "\SendTo\Адресат.*", True
fso.DeleteFile UserProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile UserProfile & "\SendTo\Сжатая ZIP-папка.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Адресат.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Сжатая ZIP-папка.*", True
fso.DeleteFolder ProgramFiles & "\WindowsUpdate", True
fso.DeleteFolder ProgramFiles & "\Uninstall Information", True
Вуаля, и после ребута все чисто. »

Хочу заметить, что в папке %AllUsersProfile% папка SendTo отсутствует,соответственно, бесполезны строки:

fso.DeleteFile AllUsersProfile & "\SendTo\Адресат.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Мои Документы.*", True
fso.DeleteFile AllUsersProfile & "\SendTo\Сжатая ZIP-папка.*", True
При создании нового пользователя (даже после удаления из Documents and Settings\Default User\SendTo) они (пункты в Отправить -) у него появляются. Есть интересная папка - WINDOWS\system32\config\systemprofile\SendTo, в ней и лежат эти Адресат, Мои Документы, Сжатая ZIP-папка. Не пробовал, возможно, они берутся для нового пользователя оттуда. А вообще, чтобы намертво удалить элементы в папке SendTo надо смотреть реестр еще (имхо).

[saavaage]

Если уж затрагивать тему удаления ярлыков, файлов и папок, то думаю будет полезен один из способов удаления файлов и папок рекурсивно (источник http://forum.script-coding.info/viewtopic.php?pid=36494):

1. Создается батник ClearFolder.cmd:
@echo off
setlocal enableextensions enabledelayedexpansion

if exist "%~1" (
echo Clearing folders in [%~1].
pushd "%~1" && (rmdir /s /q "%~1" & popd) 2>nul
) else (
echo Not found [%~1]
)

endlocal
exit /b 0

2. Используется для тотальной очистки указанной папки (например, c:\work):
ClearFolder.cmd "c:\work"

[SLIMYS]

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

[mozgabyte]

SLIMYS, я же вам уже ответил, тем более в шапке есть ссылка на статью про удаление ненужного. Информации куча, пользуйтесь поиском и хоть немного читайте..

[SLIMYS]

почему у меня не удаляется картинка ?
помогите плиз, прописываю так

del /F /Q"%SystemRoot%\Голубые кружева 16.bmp"

[Iska]

прописываю так »
SLIMYS, команда находится в пакетном файле?

Если «да», то проверьте кодировку пакетного файла: она должна быть 866 (OEM).