[zolotykh]

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

$OEM$.rar - это содержимое папки $OEM$ на твоем установочном диске? А winnt.sif - для примера положил?

[grat1]

zolotykh
ДА

[grat1]

ураа наконец таки доделал проверил несоклько раз --работает
самый простой способ
можно даже в справочник добавить
добавление твиков после загрузки оболочки 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]

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