'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.Run("Regsvr32 /i Shell32.DLL /s")

Message = "Folders will now Open." & vbCr & vbCr _
 &  "This script was downloaded from www.paulsxp.com."
MsgBox Message,64, "Finished!" 

End if