Alexander A Manaeff -

 
 

Перестали выполняться "exe" файлы

Все об администрировании рабочих станций Windows 95/98/NT/2000/XP/7/8. То, чего не найдешь в бескрайних просторах Интернета. Решения тех проблем, которые не решаются типовыми ответами, которые можно получить в техподдержке Майкрософта - а именно: переустановить продукт или купить какой-ть другой лицензионный диск.

Модератор: UncleFather

Перестали выполняться "exe" файлы

Сообщение UncleFather » 17 мар 2010 17:14, Ср

Проблема:
Перестали выполняться "exe" файлы
Решение:
Создаем vbs-скрипт:
Код: Выделить всё
'ExeFileFix.vbs - verifies the Registry, and restores the default values for .exe files
'© Mikhail Zhilin, Microsoft MVP (DTS),   mwz { AT } aha.ru
'15 Nov 2001

Option Explicit:Dim ws, t, e, v, q, Ask
Set ws = WScript.CreateObject("WScript.Shell")
t = "Verify and restore the default .exe values"

e = ws.RegRead("HKEY_CLASSES_ROOT\.exe\")
If e<>"exefile" then
   Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _
   ".exe default value is: " & e & vbcrlf & _
   "instead of: exefile" & vbcrlf & vbcrlf& _
   "Do you want to restore the default value just now?",20,t)
   If Ask = 6 Then
      ws.RegWrite "HKEY_CLASSES_ROOT\.exe\","exefile"
   Else
      Ask = MsgBox("Restore the .exe default value" & vbcrlf & _
      "as soon as possible!",16,t)
   End If
End If

q=chr(34) & "%1" & chr(34) & " %*"
'i.e.  "%1" %*
v = ws.RegRead("HKEY_CLASSES_ROOT\exefile\shell\open\command\")

If v<>q then
   Ask = MsgBox("DANGER!" & vbcrlf & vbcrlf & _
   "Exefile default value is:  " & v & vbcrlf & vbcrlf & _
   "The name before " & q & " may be the virus name!" & vbcrlf & vbcrlf& _
   "Do you want to restore the default value just now?",20,t)
   If Ask = 6 Then
      ws.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\",q
   Else
      Ask = MsgBox("Restore the default value for exefile" & vbcrlf & _
      "as soon as possible!",16,t)
   End If
Else
      Ask=MsgBox("Exefile default value is already correct!",64,t)
End If

и выполняем его
Аватара пользователя
UncleFather
Site Admin
 
Сообщения: 1257
Зарегистрирован: 17 авг 2004 17:20, Вт

Сообщение Bibigool » 17 мар 2010 17:20, Ср

Вариант 2:
Создаем reg-файл:
Код: Выделить всё
REGEDIT4

[-HKEY_CLASSES_ROOT\exefile]

[-HKEY_CLASSES_ROOT\.exe]

[HKEY_CLASSES_ROOT\.exe]
@="exefile"
"Content Type"="application/x-msdownload"

[HKEY_CLASSES_ROOT\.exe\PersistentHandler]
@="{098f2470-bae0-11cd-b579-08002b30bfeb}"

[HKEY_CLASSES_ROOT\exefile]
@="Application"
"EditFlags"=hex:38,07,00,00
"TileInfo"="prop:FileDescription;Company;FileVersion"
"InfoTip"="prop:FileDescription;Company;FileVersion;Create;Size"

[HKEY_CLASSES_ROOT\exefile\DefaultIcon]
@="%1"

[HKEY_CLASSES_ROOT\exefile\shell]

[HKEY_CLASSES_ROOT\exefile\shell\open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT\exefile\shell\open\command]
@="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shell\runas]

[HKEY_CLASSES_ROOT\exefile\shell\runas\command]
@="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shellex]

[HKEY_CLASSES_ROOT\exefile\shellex\DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers]

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\{B41DB860-8EE4-11D2-9906-E49FADC173CA}]
@=""

и выполняем его.
По аналогии можно написать файлы восстановления реестра и для других типов файлов. Для каждого типа рассширения нужно править два ключа:
Код: Выделить всё
HKEY_CLASSES_ROOT\расширениеfile\
и
HKEY_CLASSES_ROOT\.расширение
Аватара пользователя
Bibigool
 
Сообщения: 41
Зарегистрирован: 18 авг 2004 00:13, Ср


Вернуться в Администрирование Windows Workstations

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Alexander A Manaeff -
@Mail.ru .