
Нам нужно удалить значение 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).
Спасибо.