[решено] Ошибка при Удалении не существующего раздела

[O L E G]

При запуске скрипта, выдается ошибка что раздел System не существует к примеру и прекращается выполнения скрипта!
Что надо дописать? помогите пожалуйста !!!!!

Option Explicit
Dim WSHShell, objShell, strRoot, strRead, strDelete, strCreate, Root, Key, Res, SValue, ValueName, SRegValue
Set WSHShell = WScript.CreateObject("WScript.Shell")

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

--------------
В этом скрипте такая же проблема !!!!!


Option Explicit
Dim WSHShell, objShell, strRoot, strRead, strDelete, strCreate, Root, Key, Res, SValue, ValueName, SRegValue
Set WSHShell = WScript.CreateObject("WScript.Shell")

Root="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\" 'Корневой ключ
Key="\System\" 'Новый ключ
ValueName="DisableTaskMgr" 'Имя нового параметра
SValue="Value from WSH" 'Значение нового параметра

'Запрос на удаление параметра
Res=WshShell.Popup("Удалить параметр" & vbCrLf & Root & Key & _
ValueName & "?",0,"Работа с реестром",vbQuestion+vbYesNo)
If Res=vbYes Then 'Нажата кнопка Да
'Удаляем параметр
WshShell.RegDelete Root & Key & ValueName
WshShell.Popup "Параметр" & vbCrLf & Root & Key & _
ValueName & " удален!",0,"Работа с реестром",vbInformation+vbOkOnly
End If

[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: удаление заданного раздела реестра вместе с подразделами (http://forum.script-coding.com/viewtopic.php?id=3905).