
Wir müssen einen Sicherheitswert aus dem Registrierungsschlüssel des CD-ROM-Laufwerks löschen. Der Hauptspeicherort ist HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE. Von dort aus hängt es von der Marke und dem Modell des CD-Laufwerks ab, aber es sollte einen Sicherheitswert geben, der gelöscht werden muss. Ich habe den folgenden VBS-Code gefunden, aber er scheint nicht zu funktionieren oder gibt einen Fehlercode aus:
'****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****
Bei näherer Betrachtung kann der Wert nur vom SYSTEM gelöscht werden. Ich muss zum Löschen die Administratorberechtigung Vollzugriff hinzufügen. Ich bin mir nicht sicher, ob ich weiterhin VBS oder eine andere Methode verwenden soll, um dies auf allen PCs (ca. 1.000) zu erledigen.
Danke.