Скрипты для восстановления правильной работы Windows после вирусов
Пятница, 22 января 2010 г.
Просмотров: 61386
Подписаться на комментарии по RSS
У Вас не работает должным образом компьютер? Тогда этот скрипт поможет Вам избавиться от проблем на компьютере!
В статье "Ошибки Explorer.exe" было рассмотрено несколько вариантов восстановления работоспособности системы.
В данной статье мы рассмотрим несколько скриптов, которые помогут "вылечить" компьютер. Работоспособность всех скриптов проверена мной.
Скрипт "TaskBar Fixer" применяется, если возникли проблемы с панелью задач или с запуском, некорректной работой рабочего стола. После запуска скрипта закройте все папки и желательно приложения, так как скрипт перезапустит файл Explorer.exe, что повлечет перезагрузку оболочки (рабочего стола, панели задач) и закрытие всех папок.
Операционная система: Windows XP (возможно, и другие ОС)
Язык интерфейса: Русский
Лицензия: Бесплатная
Размер: 2 КБ
Скриншоты:
Скрипт "Восстановление системы после вируса" исправит следующие проблемы:
- Реестр:
- запуск командной строки (cmd.exe)
- редактирование реестра (regedit.exe)
- запуск диспетчер задач (taskmgr.exe)
- запуск оболочки (explorer.exe, userinit.exe, logonui.exe, sysdm.cpl)
- открытие файлов (.exe и т.д.)
- свойства папки (показать скрытые файлы и т.д.)
- Файловая система:
- открытие дисков (удаляет autorun.inf в корне всех дисков)
Операционная система: Windows XP (возможно, и другие ОС)
Язык интерфейса: Русский
Лицензия: Бесплатная
Размер: 8 КБ
Скриншоты:
Комментариев: 48
отлично все востановилось
Мне не помог, рабочего стола так и нет!!!!!!
Юлия, скрипты в AVZ Вам в помощь.
Александр, добавьте плиз, во 2 скрипт сл. код:
'; Восстановить запуск userinit.exe
Dim SysDrive
SysDrive = objShell.ExpandEnvironmentStrings("%systemdrive%")
if objFSO.fileexists(SysDrive & "\WINDOWS\system32\userinit.exe") then
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", SysDrive & "\WINDOWS\system32\userinit.exe", "REG_SZ"
end if
людям дополнительный шанс даст )
Сергей, спасибо, скрипт нужный! Выложите, пожалуйста, код, заключив его при помощи кнопки "Код".
On Error Resume Next Dim objShell, objFSO, Sel, Drv, SysDrive Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") '; Удалить autorun.inf на всех дисках For each Drv in objFSO.Drives If objFSO.FileExists(Drv & "\autorun.inf") Then Sel = MsgBox("Удалить autorun.inf (автозапуск) на диске " & Drv & "?", 4 + 32, "Восстановление XP") If Sel = 6 Then objFSO.deletefile Drv & "\autorun.inf", True End If End If Next '; CMD objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", 0, "REG_DWORD" '; RegEdit objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD" '; TaskMgr objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\DisableTaskMgr", 0, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose", 0, "REG_DWORD" '; Восстановить запуск explorer.exe objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe", "REG_SZ" objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\explorer.exe\" '; Восстановить запуск userinit.exe SysDrive = objShell.ExpandEnvironmentStrings("%systemdrive%") if objFSO.fileexists(SysDrive & "\WINDOWS\system32\userinit.exe") then objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", SysDrive & "\WINDOWS\system32\userinit.exe", "REG_SZ" end if '; Восстановить параметры открытия файлов Sel = MsgBox("Восстановить параметры открытия файлов?", 4 + 32, "Восстановление XP") If Sel = 6 Then '; *.exe objShell.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.com objShell.RegWrite "HKEY_CLASSES_ROOT\comfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.bat objShell.RegWrite "HKEY_CLASSES_ROOT\batfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.cmd objShell.RegWrite "HKEY_CLASSES_ROOT\cmdfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.pif objShell.RegWrite "HKEY_CLASSES_ROOT\piffile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.reg objShell.RegWrite "HKEY_CLASSES_ROOT\regfile\shell\open\command\", "regedit.exe " & chr(34) & "%1" & chr(34), "REG_SZ" '; *.txt objShell.RegWrite "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", "NOTEPAD.EXE %1", "REG_SZ" '; iexplore.exe if objFSO.fileexists(SysDrive & "\Program Files\Internet Explorer\iexplore.exe") then objShell.RegWrite "HKEY_CLASSES_ROOT\Applications\iexplore.exe\shell\open\command\", chr(34) & SysDrive & "\Program Files\Internet Explorer\iexplore.exe" & chr(34) & " %1", "REG_SZ" end if End If '; Восстановить свойства папки Sel = MsgBox("Восстановить свойства папки?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\Type", "group", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\Type", "radio", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\Type", "radio", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Type", "checkbox", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\CheckedValue", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\UncheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\DefaultValue", 0, "REG_DWORD" objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Policy\DontShowSuperHidden\" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\Type", "checkbox", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\CheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\UncheckedValue", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\DefaultValue", 1, "REG_DWORD" End If '; Показать скрытые и системные файлы Sel = MsgBox("Показать скрытые и системные файлы?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\Hidden", 1, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\ShowSuperHidden", 1, "REG_DWORD" Else objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\Hidden", 0, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\ShowSuperHidden", 0, "REG_DWORD" End If '; Показать расширение файлов Sel = MsgBox("Показать расширение файлов?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\HideFileExt", 0, "REG_DWORD" Else objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\HideFileExt", 1, "REG_DWORD" End If MsgBox "Для внесения всех изменений нужна перезагрузка!", 64,"Восстановление XP" '; Перезагрузка Sel = MsgBox("Перезагрузить компьютер?", 4 + 32, "Восстановление XP") If Sel = 6 Then Dim OpSysSet, obj Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}//./root/cimv2").ExecQuery ("SELECT * FROM Win32_OperatingSystem WHERE Primary=true") For Each obj In OpSysSet '; Flags Action '; 0 Logoff '; 1 Shutdown '; 2 Reboot '; 4 Force '; 8 Power Off '; 16 Force If Hung obj.Win32Shutdown(6) '; Reboot + Force '; obj.Win32Shutdown(16) '; Logoff + Force Next End If set objShell = nothing set objFSO = nothing set OpSysSet = nothing set obj = nothing set Sel = nothing set Drv = nothing set SysDrive = nothing Wscript.quitp.s. Если кто знает, как применить изменения без перезагрузки - обязательно поделитесь опытом!
Помогли проги, спасибо, рабочий стол перезагружался через определенное время и значки после этого в панели снизу справа исчезали, теперь все нормально работает..
кстати, в инете мало по этой проблеме ответов и помощи...хорошо, что Ваш сайт нашел...
Спасибо!
Здорово помогли скрипты.
А у меня такая проблема.На свежеустановленной винде7 после перезагруски тоже "голый" рабочий стол.По какой-то причине не запускается Explorer.exe
Была проблема,при загрузке WinXP на рабочий стол загружалась папка мои документы,в интернете нашел причины и способ их устранения ,но так не хотелось заниматься ручной правкой реестра (причем неизвестно чем это кончится).Скрипт "Восстановление системы после вируса" все поправил .Большое спасибо
что делать если не скачиваеться прога AVZ пишет что удолёный сервер !!
помогите плзз !!
не загружался рабочий стол, работал только диспетчер задач, ваш скрипт все исправил. большое спасибо!
спасибо
случилость чудо! спасибо настоящим горячим мужикам!
вы меня спасли
здравствуйте народ
у меня проблема похожая, рабочий стол есть не работают- заставки и графическое оформление рабочего стала. Пишет; ошибка базы explorer.exe не зарегистрированы ! и медиоплеер не видит профиля "мои документы" при установлении программ выбивает ошибку, ссылается на то что нет explorer.exe. Internet-Explorer.exe на 32 бита тоже блокирован 
прогнал все известные проги по вирусам и удалил все вирусы но проблема осталась. Если у кого была такая проблема напишите очень прошу а то я уже голову сломал в поисках проблемы. у меня стаит windoes 7 home premium но вот только диска нет винда шла уже в компе. поэтому хотелось ещё спросить можно ли сдёрнуть explorer.exe c другой винды но у меня windoes 7 home premium а скачал windoes 7 home premium сервис пак 1 аналога моему в интернете нет. есле кто делал отпишитесь
Большое спасибо за программки - решили мои проблемы.
Большое спасибо за помощ!
Спасибо тебе, добрый человек, просто потрясающая TaskBar Fixer!!
У меня 2 дня назад комп был заражен, вирусы удалены и проверены заново
Но последствия вируса, а именно: вместо любого exe открывается windows media centr, не исправились другие скрипты не помогали и AVZ тоже, только он!! я уже был готов сносить винду и фотки на диски переписал, С П А С И Б О !!
Скачал TaskBar, но вместе с ним стал загружатся сайт Yandex. И я сразу же отключил установку. Между сайтами конкуренция и они стараются прилепить к себе разные программы, чтобы внаглую установиться и насильно навязать себя. С этим я и столкнулся у вас на сайте. Компания Microsoft имеет филиалы в бывших странах СССР, где навязывают разные языки. Я живу на Украине, зачем русскому человеку телячьий язык. Yandex я не воспринимаю по этой причине. Если есть где скачать TaskBar Fixer в чистом виде, посоветуйте.
Спасибо большое, после вируса и некорректных действий по его удалению пропал рабочий стол. Скрипт реально помог восстановить первоначальный вид системы и рабочего стола. Спасибо от души.
подскажите плиз че делать у мя пропал рабочий стол и меню пуск . из советов не чё не памагло!может еще чего кто падкинет
И где этот скрипт взять TaskBar Fixer?кто знает
всё нашел как всем спасибо МНЕ ПАМАГЛО
!!!!!!!!!!!!!!!!!!!!УРА ЦЕЛЫЙ ГОД ВАЗИЛСЯ А ША ВСЁ НОРМ!!!!!!!!!!
Всем участникам в разработке данных скриптов огромное СПАСИБО.
Всем добрый день! Прошу помоши в следующей ситуации: вчера перестал работать поиск с помощником по поиску, просит запустить программу установки и еще: при входе в панель управления-система-оборудование-диспетчер устройств выскакивает окно под названием "консоль управления (ММС)", где написано: ММС не может открыть файл С\WINDOWS\system32\devmgmt.msc.
Возможно, файл отсутствует, не является консолью ММС, или был создан более поздней версией ММС. Также возможно, отсутствуют права на доступ к данному файлу."
Помогите, пожалуйста, возможно вылечить сей глюк без переустановки ОС? Заранее всех благодарю.
Премного благодарен
Помогло, огромное человеческое СПАСИБО!!!
Спасибо - эта тема всегда актуальна!!!
можно не vbs а ехе сделать файл?
у меня был вирус троян блокировщик системы, я установил 2-ю операционную систему на комп и при помощи Drweb удалил вирус(я уже один раз так делал и всё получилось), а теперь не могу загрузить 1-ю операционную систему, что мне делать??
не восстанавливает кнопку (осталась неактивной) "диспетчер задач", и реестр так же не дает редактировать, пишет заблокировано администратором системы.
че делать?
У меня такая же проблема...но когда я скачиваю скрипт его через Winrar распаковываешь но не знаю где его найти...Админ пожалуйста выложи этот скрипт(но чтобы его не скачивать)и тебе будет интресно будет узнать как я запустил AVZ..я скачал какуюто не помню версия которая сама после скачивания запускается.Начитался этими комнтами и обрадовался.Буду очень блогодарен!!!
Ребята что за бред, после трояна вымогателя пошла такая фигня - когда залогиниваюсь при входе в систему Windows XP у меня срабатывает сразу же log off и опять появляется окно CTRL+ALT+DEL. Как вылечить эту байду, может я что лишнее удалил? Поможите кто сколько сможет...Заранее спасибо...
Иван, сам сегодня столкнулся с этой фигнёй,скопировал с установочного диска userinit.ex_ и переименовал в userinit.exe фигня прошла,но рабочий стол так и не восстановился,диспетчер задач не запускается...может кто знает как запустить тот же процессэксплорер без дтспетчера задач и командной строки
я открывала что-то через плеер WinDjView ,и оставила там ( точно не помню) галочку-всегда открывать файлы такого типа....( Я думаю,что дело в этом,может и ошибаюсь)Теперь все значки на рабочем столе в виде ярлыка этого плеера.А при попытке открыть что-то-пишет этому файлу не сопоставлена программа для выполнения этого действия.Создайте сопоставление в панели управления.. Фильмы открываются через Медиа плеер классик,а через Виндовс Медиа-нет,музыка не открывается,текстовые файлы открываются через Ворд,в интернет зашла только через Пуск-IE... по-другому никак.Диски С и Д открываются...Расширенеие везде теперь exe...
Что теперь делать? помогите советом
Антивирусником проверяю-вирусов вроде нет..
Смогу ли я сама с этим справиться?
Спасибо огромное! Хотел уже систему сносить,Скрипт "Восстановление системы после вируса" помог. Не открывались папки на рабочем столе.
помогите пожалуйста,я начала востанавливать систему ранним числом,ппрошло востановление и выдало информацию,ошибка встановления,система не востановилась таким то числом,что это мохет быть?
Такой вопрос. Вижу в скриптах почти во всех есть диалоговые окна, с ответами да или нет.
Можно ли модифицировать скрипт, чтобы он выполнялся без запросов ответа пользователя? Было бы удобно вставлять его например в автозагрузку глючащих операционок, там где например не стартует эксплорер, голый рабочий стол, ну или еще какой глюк при котором запустить скрипт нет возможности. Или при добалении в автозагрузку скрипт не будет проводить действия?
Восстановил Explorer в win 2003 скриптом TaskBar Fixer, долго бился в диспечере задач висело "Мои документы". Спасибо.
После запуска скрипта вываливается куча сообщений с просьбой вставить диск с виндой SP 3. Вопрос: он действительно нужен для восстановления с помощью данного скрипта или же я делаю что-то не так?
У меня windows 7 OC ноутбук
Проблема такая
Я скачал програму для генерирования ключей в гта 4
Запустил её у меня перезагрузил ноутбук
Попробывал войти в любую програму например ц клинер
Он его быстро открывает и закрывает и так со всеми прогами
Помогите плиз
Запускай другую систему, заведомо чистую (лайв-сд и тп), и там чисти жесткий диск от вирусов. Либо попробуй в текущей установить\обновить антивирус.
Иоан, скрипт восстанавливает настройки и файлы системы, вот для восстановления файлов и нужен диск
2011-11-14 в 14:11:51 | Кирилл, скрипт можно легко модифицировать (убрать все вопросы) изменяя 2 строчки кода на каждом вопросе:
Sel = MsgBox("Восстановить параметры открытия файлов?", 4 + 32, "Восстановление XP")
If Sel = 6 Then
самое простое что пришло в голову - произвести замену в тексте:
1. "MsgBox" заменить на "" (убрав "MsgBox" возникнет ошибка и выполнение скрипта продолжится со следующей строки так и не показав окна)
2. "If Sel = 6 Then" заменить на "If 6 = 6 Then"
Огромное Вам спасибо! так долго мучился с панелью задач, а тут все так просто - даже перезагружать не пришлось.
Спасибо!
привет не запускаються игры
обьесни суть