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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

При запуске скрипта, выдается ошибка что раздел 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

Код:

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

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

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