Fixes the problem where Search or Command Prompt opens when clicking on a folder. (VB Script)
| 'Fixes the problem where Search or Command Prompt opens when clicking on a folder. Dim WshShell, M, Message Message = "This script will fix the problem where Search or Command Prompt opens when clicking on a folder." & vbCr & vbCr _ & "Adding information can unintentionally change or delete values and cause components to stop working correctly." _ & " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _ & "Would you like to continue?" M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks") If M = 6 Then Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\", "none", "REG_SZ" WshShell.RegWrite "HKEY_CLASSES_ROOT\Drive\shell\", "none", "REG_SZ" Message = "Folders will now Open." & vbCr & vbCr _ & "This script was downloaded from www.paulsxp.com." MsgBox Message, 64, "Finished!" If MsgBox("If you find this script was helpful and you would like to make a Donation?" & vbCr & vbCr & "Click Yes to visit my Donation page at Paul's Web Site." & vbCr & vbCr & _ "All donations are made through PayPalŪ.", vbInformation + vbYesNo + vbDefaultButton, "Make a Donation") = 6 Then WshShell.Run "http://www.paulsxp.com/donation.html" End If End If |