KLASS
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще раз о кастрации XPени и не только:
В файле "sysoc.inf" удалил все слова "hide". Главное при этом - оставить неизменным формат файла, то есть следует удалять только HIDE, оставляя запятые до и после этого слова. Идем в "Установка и удаление программ" и убиваем все, что не нужно.
1. MSN Explorer
2. Обновление корневых сертификатов
3. Игры
4. Мастер спец. возможностей
5. HiperTerminal
6. Разговор
7. Стандартные (полностью)
Чтобы удалить что-нибудь с помощью устанавливающего inf файла его надо отредактировать: поменяв все "add" и "copy" на "del", а после через контекстное меню установить этот файл. Я удалил Movie Maker - файл (moviemk.inf)
Для удаления NetMeeting необходимо запустить окно командной строки и ввести следующую команду в точности так, как она приведена ниже (заметьте, что в данном случае важно соблюдать регистр): %SystemRoot%\System32\rundll32.exe setupapi, InstallHinfSection NetMtg.Remove 132 msnetmtg.inf
Далее делаем в БЛОКНОТе файл "Удалить_Windows_Messenger.VBS" и удаляем Windows Messenger напрочь с корнем.
-------------------------------
Option Explicit
On Error Resume Next
Dim WSHShell, MyBox, p1, q1, rcmd
Dim jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger"
q1 = 2
rcmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\inf\msmsgs.inf,BLC.Remove"
WSHShell.RegWrite p1, q1
WshShell.Run(rcmd)
--------------------------------
Удаляем содержимое директорий
1) %SystemRoot%\Driver Cache\i386\
Это можно сделать в том случае, если всё оборудование уже стоит и работает. При добавлении нового оборудования система будет запрашивать дистрибутив.
2) %SystemRoot%\System32\dllcache
3) Удалить из папки %SystemRoot%\inf файлы *.PNF, а также можно убрать файлы модемов mdm*.*
4) Папка %SystemRoot%\Help
5) Почистить папку %SystemRoot%\Installer (только не трогать *.msi которые относятся к MSOffice, а то система дистрибут бесконечно будет запрашивать.)
6) отключить хибернейт
7) %SystemRoot%\Media
8) Удалить файлы из папки %SystemRoot%\Resources и вложенных в том случае если красявости не нужны.
9) %SystemRoot%\Web
Если не пользуемся System Restore заходим в реестр в раздел HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\PCHealth. Там создаем строковой параметр displayname, значение которого задаем любым, например, “PCHealth”. Заходим в Панель управления – “Установка и удаление программ”. И удаляем нашу программу “PCHealth”. После чего Винда завопит, что заменены ее файлы... если нужна неплохая утилитка MSConfig, то вставляем диск с дистрибутом и восстанавливаем ее. Перезагружаем компьютер и удаляем все из папки %SystemRoot%\System32\Restore. При воплях системы-посылаем ее (Отмена и Да)
После установки фиксов не забываем в %SystemRoot% убивать все папки начинающиеся как: $NtUninstall. Там же прибиваем все логи фиксов.
После установки прог убиваем *.txt;*.old;*.bak;*.@@@;*.001;*.002;*.tmp;*.gid;*.readme;*.pdf;*.b~k;*.chk;*.0??;*.cnt;*.hlp;*.rtf;*.tip;*.doc;*.diz;*.nfo;*.htz;*.wri;*._;*._mp;*.syd естественно сначала ознакомившись с доками-факами и проглядывая чего удаляем 
Народ! Кто еще, что лишнее нашел как убрать, делитесь!
На усмотрение каждого:
Делаем быстрый запуск командной строки для любой папки.
Запустите REGEDIT (или REGEDT32). В разделе HKEY_CLASSES_ROOT\Directory\Shell последовательно добавьте следующие ключи: CommandPrompt -> Command. В ключе Command отредактируйте параметр "Default": он должен содержать значение: cmd.exe /k cd "%1". Параметру "Default" в ключе CommandPrompt присвойте любое понравившееся значение, например Open Command Prompt. Теперь щёлкните на любой папке правой кнопкой мыши, выберите в появившемся меню команду Open Command Prompt и вы запустите командную строку в нужном каталоге.
--------------------------------------------------------------------------
При необходимости, команду "Зашифровать" ("Encrypt") / "Расшифровать" ("Decrypt") можно встроить в контекстное меню для файлов и папок. В случае если файл или папка не зашифрованы, будет доступна команда "Зашифровать". В обратном случае - команда "Расшифровать". Для этого:
1. Запустите редактор реестра regedt32.
2. Откройте раздел:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
3. Создайте параметр типа REG_DWORD с именем EncryptionContextMenu и значением 1.
4. Закройте редактор реестра и перезагрузите компьютер.
--------------------------------------------------------------------------
Переименовать или удалить некоторые команды из контекстного меню IE вызываемого кликом по ссылке можно в следующем ключе.
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt]
--------------------------------------------------------------------------
Если у Вас проинсталлировано очень много программ, и контекстное меню New (Создать) стало чрезвычайно большим да ещё и притормаживает, то нужно:
Найти в реестре ключ HKCR.
Стереть папку ShellNew в тех ключах, которые вам больше не понадобятся в контекстном меню Создать. После этого Windows перезагружать не надо.
---------------------------------------------------------------------------
Этот скрипт позволит Вам изменять величину порога для группирования кнопок на Taskbar.
---------------------------------------------------------------------------
'xp_taskbargrouping.vbs - Change number of windows that are open before XP will start grouping them
'й Doug Knox - July 7, 2001
'This code may be freely distributed/modified
Option Explicit
'Declare variables
Dim WSHShell, n, MyBox, p, p1, t, cn, Caption, itemtype, errnum
'set variables and Shell
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarGroupSize"
itemtype = "REG_DWORD"
t = "Change Taskbar Grouping Level"
'This section reads the current value if any and puts it in an Input Box
'where you may change it as you like
On Error Resume Next
n = WSHShell.RegRead(p)
errnum = Err.Number
If errnum <> 0 then
n = 0
End If
Caption = "Your current Value is: " & n & vbCR & vbCR
Caption = Caption & "A value of 2 will cause the Taskbar buttons to always group." & VBCR & vbCR
Caption = Caption & "Input your new value."
On Error Goto 0
cn = InputBox(Caption, t, n)
If cn <> "" Then
WSHShell.RegWrite p, cn, itemtype
End If
If cn <>"" Then
MyBox = MsgBox("You must log off/log on for the changes to take effect", vbOKOnly,"Done")
End If
--------------------------------------------------------------------------- |
Если чувствуешь себя крутым, можешь и ручками в Hex-editor'e.. :-\
Просто не знаю в чём дело хп у меня уже давно и такого не творилось.
Если знаете пожалуйста помогите буду очень благодарен.(Build2600) 
