Нам нужно удалить значение Security из раздела реестра привода CD-ROM. Основным местоположением является HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE. Оттуда это будет зависеть от марки и модели привода CD, но там должно быть значение безопасности, которое необходимо удалить. Я нашел следующий код 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****

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

Благодарю.

|источник

0