'Add Disk CleanUp, Drive Right Click Menu, XP

Dim WshShell, sInput, sMsg 

sMsg = "This script will add Disk Clean Up to the right click drive menu." & 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?"

sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If sInput = vbYes Then 

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCR\Drive\shell\diskcleanup\", "Disk CleanUp", "REG_SZ"
WshShell.RegWrite "HKCR\Drive\shell\diskcleanup\command\", "cleanmgr.exe /d %1", "REG_SZ"

sDone = "Disk Clean Up was added to the right click Drive menu." & vbCr & vbCr _
 &  "This script was downloaded from www.paulsxp.com."
MsgBox sDone, 64, "Paul's XP and Vista Tweaks"

End If