' Invokes Disk Cleanup sageset:50
' Copyright © 2005 Ramesh Srinivasan
' Windows XP Troubleshooting - http://windowsxp.mvps.org
' Usage Instructions at - http://windowsxp.mvps.org/clearxptif.htm

Set WshShell = CreateObject("WScript.Shell")
WshShell.RUN("cleanmgr.exe /sagerun:50")
Set WshShell = Nothing