'Fixes XP bug where explorer folders won't open after you added an action to file folders.
Set oShell = WScript.CreateObject("WScript.Shell")

'Redo registry settings
oShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\", "none"
oShell.RegWrite "HKEY_CLASSES_ROOT\Drive\shell\", "none"

'Re-register
oShell.Run "REGSVR32 /I /S SHELL32.DLL", 4, True

'All done
MsgBox "Folders will now open properly",,"Fixed"