Удалить определенное значение из подраздела реестра

Удалить определенное значение из подраздела реестра

Нам нужно удалить значение Security из раздела реестра привода CD-ROM. Основное местоположение — HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE. Оттуда все будет зависеть от марки и модели привода CD, но должно быть значение Security, которое нужно удалить. Я нашел следующий код VBS, но он, похоже, не работает или выдает код ошибки:

'****SCRIPT START****
' this script searches for all "security"-keys under HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\ and deletes them
Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Dim oReg : Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Dim oShell : Set oShell = CreateObject("WScript.Shell")
Dim sPath, aSub, sKey, aSubToo, sKeyToo, dwValue
' Get all keys within sPath
sPath = "SYSTEM\CurrentControlSet\Enum\IDE"
oReg.EnumKey HKEY_LOCAL_MACHINE, sPath, aSub
' Loop through each key
For Each sKey In aSub
    'Get all subkeys within the key 'sKey'
    oReg.EnumKey HKEY_LOCAL_MACHINE, sPath & "\" & sKey, aSubToo
    For Each sKeyToo In aSubToo
        oReg.deleteValue HKEY_LOCAL_MACHINE, sPath & "\" & sKey & "\" & sKeyToo , "Security"
        if Err.Number<>0 then 
            MsgBox Err.Description  ' FOR TESTING ONLY
            Err.Clear
        end if
    Next
Next
'****SCRIPT END****

При более близком рассмотрении значение может быть удалено только SYSTEM. Мне нужно добавить администратору полные права на удаление. Не уверен, стоит ли мне продолжать использовать VBS или другой метод, чтобы сделать это на всех ПК (около 1000).

Спасибо.

Связанный контент