# 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."
Category Windows