AtYourService
Member
- Reaction score
- 12
- Location
- CT
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script to Blow out the UpperFilters & LowerFilters Key
' Your CD drive or DVD drive is missing or is not recognized
' by Windows or other programs.
' http://support.microsoft.com/kb/314060
' will@whatsmypass.com
' 10/11/2009
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}"
strValueName = "UpperFilters"
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
If IsNull(strValue) Then
Wscript.Echo "The UpperFilters registry key does not exist. Checking for LowerFilters key."
Else
Wscript.Echo "The UpperFilters key exists, now deleting & Checking for LowerFilters key."
DelKey = objRegistry.DeleteValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName)
if DelKey <> 0 then
WScript.Echo "Error deleting value: " & DelKey
else
WScript.Echo "Successfully deleted value: " & strValueName
end if
End If
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}"
strValueName = "LowerFilters"
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
If IsNull(strValue) Then
Wscript.Echo "The LowerFilters registry key does not exist."
Else
Wscript.Echo "The LowerFilters key exists, now deleting."
DelKey = objRegistry.DeleteValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName)
if DelKey <> 0 then
WScript.Echo "Error deleting value: " & DelKey
else
WScript.Echo "Successfully deleted value: " & strValueName & vbCrLf & "Please Reboot."
end if
End If
Last edited by a moderator: