voler
02-03-2012, 10:04
Привет, всем.
При запуске любого софта появляется сообщение.
Приложение выполняющие эту операцию указанному файлу не сопоставлено. произведите сопоставление с помощью панели управления "Свойства папки".
Пробовал использовать, данный кусок реестра
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}]
@=""
Так же этот 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
Но он пишет что нет доступа, хотя проверка прав показывает что мой пользователь имеет права.
При запуске любого софта появляется сообщение.
Приложение выполняющие эту операцию указанному файлу не сопоставлено. произведите сопоставление с помощью панели управления "Свойства папки".
Пробовал использовать, данный кусок реестра
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}]
@=""
Так же этот 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
Но он пишет что нет доступа, хотя проверка прав показывает что мой пользователь имеет права.