Инструкция
1
Нажмите кнопку «Пуск» и введите regedit в строке поиска. Это позволит войти в утилиту редактора реестра, где и хранятся те параметры, которые нуждаются в изменении.
2
Выбирайте и последовательно открывайте ключи из списка в левой части экрана: HKEY_CURRENT_USER
Software
Microsoft
Windows
CurrentVersion
Policies
Explorer.
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
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
Запустите скрипт и перезагрузите компьютер.