rc = MsgBox("Хотите добавить в контекстное меню Internet Explorer пункт Анализатора рецептов?", vbYesNo OR vbQuestion, "edimka.ru")
if rc=vbNo Then WScript.Quit

' путь для добавления
REG_NEWMENU = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\&Aнализировать рецепт\"

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

' Записываем в реестр требуемые значения
shell.RegWrite REG_NEWMENU, "http://edimka.ru/gen.htm", "REG_SZ"
shell.RegWrite REG_NEWMENU & "Contents", 48, "REG_DWORD"

rc = MsgBox("Данные были успешно внесены" & vbCrLf & "Перезапустите Internet Explorer чтобы изменения вступили в силу", vbOk OR vbInformation, "edimka.ru")