This script will fix your CD/DVD's not showing in Windows Explorer. (VBScript)
| 'Restore CD/DVD's to Windows Explorer
On Error Resume Next Dim WshShell, ObjShell, Message Set WshShell = WScript.CreateObject("WScript.Shell") If WScript.Arguments.length = 0 Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", """" & _ WScript.ScriptFullName & """" &_ " RunAsAdministrator", , "runas", 1 Else Set WshShell = WScript.CreateObject("WScript.Shell") Message = "This script will fix your CD/DVD's not showing in Windows Explorer." & vbCr & vbCr Message = Message & "This script will Delete Registry Keys." & vbCr & vbCr Message = Message & "Would you like to Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then WshShell.RegDelete "HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}\UpperFilters" WshShell.RegDelete "HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}\LowerFilters" Message = "Your CD/DVD drives should now appear in Windows Explorer." & vbCr & vbCr Message = Message & "You may need to reboot your computer to see the change." & vbCr & vbCr Message = Message & "This script was downloaded from www.paulsxp.com." MsgBox Message, 64,"CD/DVD's Fixed!" End If End If |