Как вернуть иконку на рабочий стол

Компьютерные вирусы достаточно часто включают в себя функцию удаления всех иконок рабочего стола. Значок программы может быть удален самим пользователем случайно в процессе очистки. Как бы то ни было, проблема восстановления иконок на рабочем столе может стать перед каждым.

Инструкция

1. Нажмите кнопку «Пуск» и введите regedit в строке поиска. Это позволит войти в утилиту редактора реестра, где и хранятся те параметры, которые нуждаются в изменении.
2. Выбирайте и последовательно открывайте ключи из списка в левой части экрана: HKEY_CURRENT_USER
   Software
   Microsoft
   Windows
   CurrentVersion
   Policies
   Explorer.
3. Убедитесь в том, что в списке в правой части окна присутствует параметр NoDesktop. В противном случае - создайте его, выбрав «Создать новый параметр» в сервисном меню, которое можно вызвать кликом правой кнопкой мыши по пустому месту в открытом окне редактора реестра. Задайте тип параметра - DWORD, позволяющий хранить числовые значения.
4. Откройте вновь созданный параметр двойным кликом мыши на поле с его названием и введите значение 0. В некоторых случаях для восстановления иконок рабочего стола может потребоваться полное удаление параметра (если он был создан вредоносной программой).Альтернативным способом восстановления значков рабочего стола может послужить написание скрипта, выполняющего всю работу.
5. Откройте программу «Блокнот» и создайте на рабочем столе текстовый файл.
6. Введите следующее значение:
   Dim WshShell
   Dim Value
   Dim ResultOn Error Resume NextSet WshShell=CreateObject(″Wscript.Shell″)
   Value=WshShell.RegRead(″HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop″)If (Value = ″″) or (Value = 0) Then
   Result = MsgBox (″Значки рабочего стола видны.Скрыть?″, 65, ″Результат чтения″)
   if Result = 1 then Value = 1
   Else
   Result = MsgBox (″Значки рабочего стола скрыты.Показать?″, 65, ″Результат чтения″)
   if Result = 1 then Value = 0
   End ifWshShell.RegWrite ″HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop″, Value, ″REG_DWORD″Result = MsgBox (″Для завершения операции требуется перезагрузка.Выполнить перезагрузку?″, 65, ″Перезагрузка″)
   if Result = 1 then
   Set OpSysSet = GetObject(″winmgmts:{(Shutdown)}).ExecQuery(″select * from Win32_OperatingSystem where Primary=true″ )
   For Each OpSys In OpSysSet
   OpSys.Reboot()
   Next
   End IF
7. Выберите «Сохранить» в меню «Файл». Укажите «Все файлы» в выпадающем меню «Тип файла» и введите имя файла и расширение .vbs. (Пример: Desktop Icon.vbs)
8. Запустите скрипт и перезагрузите компьютер.