Set Items = CreateObject("Shell.Application").NameSpace("shell:::{ED7BA470-8E54-465E-825C-99712043E01C}").Items
Items.Filter 224, "{61D20300-E9E3-4E7D-849F-447823A43242}" : If Items.Count Then Items.Item(0).Verbs.Item(0).DoIt
Запускаем и метим нижний пункт.
В дополнение идём в gpedit.msc > Конфигурация пользователя > Административные шаблоны > Отчеты об ошибках Windows, открываем 3 корневых политики, проставляем Включить с нажатием кн. Применить, разумеется. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
Вот ярлычок:
