Scott Gamon - In Brian Livingston's February 28, 2003 Infoworld column[L1 ], he describes a way to speed up Windows disk cleaning by changing a registry setting. The script below will make (or undo) that change.
# SpeedClean.tcl
#
# Modifies the Windows registry as detailed in Brian Livingston's
# February 28, 2003 Infoworld column:
#
# http://www.infoworld.com/article/03/02/28/09winman_1.html
#
# Example: tclsh SpeedClean.tcl => Removes registry value
# tclsh SpeedClean.tcl restore => Restores registry value
package require registry
switch -- [lindex $argv 0] {
restore {set Value "{B50F5260-0C21-11D2-AB56-00A0C9082678}"}
default {set Value ""}
}
registry set \
{HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches\Compress old files} \
{} \
$Value
puts "Done."