☰

レジストリサブキーから特定の値を削除する

tag-icon • tag-icon windows-registry vbscript
レジストリサブキーから特定の値を削除する

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****

詳しく調べてみると、この値は SYSTEM でしか削除できません。削除するには、管理者権限の完全な権限を追加する必要があります。すべての PC (約 1,000 台) でこれを実行するために、VBS を引き続き使用すべきか、別の方法を使用するべきかわかりません。

ありがとう。

関連情報