[kefirko]

Накатал скриптик на VBS, который смотрит, что у вас написано в реестре по адресу HKEY_CLASSES_ROOT\.txt\ и HKEY_CLASSES_ROOT\.xls\ в ключе (По умолчанию). И добавляет соответственно значению этого ключа ветку HKEY_CLASSES_ROOT\txtfile\shell\NewMenuForTest\ (скорее всего) и HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\NewMenuForTest\ (скорее всего). И записывает там в ключ (По умолчанию) значение "NewMenuForTest". После записи у вас по клику правой кнопкой на файлах с расширением *.xls и *.txt в контекстном меню должна появиться еще одна строка "NewMenuForTest". Потом скрипт удаляет добавленные ветки. Все делается с подтверждением действий.
Проверьте кто-н у себя, появится ли у вас еще одна строка в контекстном меню для обоих типов файлов и напишите результат. Вдруг у вас все нормально.
В скриптике этот код:

Код:

Option Explicit 

'Объявляем переменные 
Dim WshShell, Root, Res, _
tWay, tKey, tValue, _
xWay, xKey, xValue

Root = "HKEY_CLASSES_ROOT" 'Корень

'Создаем объект WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 

'Считываем значение по-умолчанию для ветки HKEY_CLASSES_ROOT\.txt\
tWay = "\.txt\" 'Имя ветки
tKey = "" 'Имя ключа
tValue = WshShell.RegRead(Root & tWay & tKey) 


'Запрос на создание нового ключа и запись в него значения
Res = WshShell.Popup("Создать ключ" & vbCrLf & Root & "\" & tValue & "\shell\NewMenuForTest\" & "(По умолчанию)" & "?",0,_ 
"Работа с реестром",vbQuestion+vbYesNo) 
If Res=vbYes Then 'Нажата кнопка Да 
'Записываем новый ключ 
WshShell.RegWrite Root & "\" & tValue & "\shell\NewMenuForTest\" & "", "NewMenuForTest" 
End If 

'Считываем значение по-умолчанию для ветки HKEY_CLASSES_ROOT\.xls\
xWay="\.xls\" 'Имя ветки
tKey="" 'Имя ключа 
xValue=WshShell.RegRead(Root & xWay & xKey) 

'Запрос на создание нового ключа и запись в него значения
Res=WshShell.Popup("Создать ключ" & vbCrLf & Root & "\" & xValue & "\shell\NewMenuForTest\" & "(По умолчанию)" & "?",0,_ 
"Работа с реестром",vbQuestion+vbYesNo) 
If Res=vbYes Then 'Нажата кнопка Да 
'Записываем новый ключ 
WshShell.RegWrite Root & "\" & xValue & "\shell\NewMenuForTest\" & "", "NewMenuForTest" 
End If 

'Запрос на удаление всех внесенных изменений
Res = WshShell.Popup("Удалить раздел" & vbCrLf & Root & "\" & tValue & "\shell\NewMenuForTest\" & "?",0,"Работа с реестром",vbQuestion+vbYesNo) 
If Res=vbYes Then 'Нажата кнопка Да 
'Удаляем раздел 
WshShell.RegDelete Root & "\" & tValue & "\shell\NewMenuForTest\"
End If 

'Запрос на удаление всех внесенных изменений
Res=WshShell.Popup("Удалить раздел" & vbCrLf & Root & "\" & xValue & "\shell\NewMenuForTest\" &_ 
"?",0,"Работа с реестром",vbQuestion+vbYesNo) 
If Res=vbYes Then 'Нажата кнопка Да 
'Удаляем раздел 
WshShell.RegDelete Root & "\" & xValue & "\shell\NewMenuForTest\"
End If

[Илья_Рудоманенко@vk]

kefirko, Вот.

[kefirko]

Илья_Рудоманенко@vk, дома и на работе все работает. Можете эту ветку реестра выложить?

Проверил на работе (Windows 7 Ultimate). Скрипт работает. Для xls меню появляется, для txt - нет.
Проверил дома на своем компе (Windows 7 Ultimate). Скрипт работает. Для xls меню появляется, для txt - нет.
Проверил у жены на ноуте (Windows Vista Home Basic). Скрипт работает. Для xls меню появляется, для txt - тоже появляется.

[Илья_Рудоманенко@vk]

kefirko, Хм..
Во второй раз ошибка не появилась.
У меня Windows 7 Home Basic. Скрипт работает без ошибок. Для xls меню появляется, для txt - появляется.

[kefirko]

Илья_Рудоманенко@vk, тогда тем более от вас бы вашу веточку реестра получить.

[Илья_Рудоманенко@vk]

kefirko, Держите.

[kefirko]

Илья_Рудоманенко@vk, нет.
Вот эту: HKEY_CLASSES_ROOT\txtfile.

[Илья_Рудоманенко@vk]

kefirko, Извиняюсь,вот.

[kefirko]

Илья_Рудоманенко@vk, у меня с вами все символы до одного совпадают, у жены также, плюс дополнительная ветка:
[HKEY_CLASSES_ROOT\txtfile\ShellEx\{8895b1c6-b41f-4c1c-a562-0d564250836f}]
@="{1531d583-8375-4d3f-b5fb-d23bbd169f22}"
Но сдается мне, что копать надо не тут.

Илья_Рудоманенко@vk, если не трудно еще бы вот эту ветку получить: HKEY_CLASSES_ROOT\.txt.

[Илья_Рудоманенко@vk]

kefirko, Вот.