Отключение
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /t Reg_dword /v DisableRegistryTools /f /d 1
После выполнения команды, при попытке запуска редактора, будет выводится следующее сообщение:
Включение
Разрешить запуск аналогичным способом, через reg add, не получится, так как консольная версия редактора будет так же выводить сообщение о том, что редактирование реестра запрещено администратором. Разрешить запуск можно через файл установки .inf.
|
1 2 3 4 5 6 7 8 |
[Version] Signature="$Chicago$" [DefaultInstall] AddReg=UnhookRegKey [UnhookRegKey] HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System,DisableRegistryTools,0x00000020,0 |
Запускать файл нужно через контекстное меню, выбрав пункт "Установить".
Универсальный вариант
В следующем варианте используется один vbs файл, который: если редактор реестра включен, то отключит его, а если отключен, то включит.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
Option Explicit Dim WSHShell, n, MyBox, p, t, errnum, vers Dim enab, disab, jobfunc, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\" p = p & "DisableRegistryTools" itemtype = "REG_DWORD" enab = "включен." disab = "отключен." jobfunc = "Редактор реестра " t = "Confirmation" Err.Clear On Error Resume Next n = WSHShell.RegRead (p) On Error Goto 0 errnum = Err.Number if errnum <> 0 then 'Create the registry key value for DisableRegistryTools with value 0 WSHShell.RegWrite p, 0, itemtype End If If n = 0 Then n = 1 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & disab, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p, n, itemtype Mybox = MsgBox(jobfunc & enab, 4096, t) |
