[Iska]

Код:

Option Explicit

Dim objWSHShell

Set objWSHShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

objWSHShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
objWSHShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\"

On Error Goto 0

Set objWSHShell = Nothing

WScript.Quit 0

[O L E G]

А как сделать что бы подраздел тоже удалялся в ветке !?
Т.к. некоторые ключи содержат подразделы и скрипт их не удаляет

[Iska]

Оставаясь в рамках WSH — только посредством Wbem и рекурсии, например: vbscript: удаление заданного раздела реестра вместе с подразделами.