清理windows系统垃圾

转自:http://bbs.pediy.com/showthread.php?t=74654
 
批处理文件

 @echo off
 echo 正在清除系统垃圾文件，请稍等......
 del /f /s /q %systemdrive%/*.tmp
 del /f /s /q %systemdrive%/*._mp
 del /f /s /q %systemdrive%/*.log
 del /f /s /q %systemdrive%/*.gid
 del /f /s /q %systemdrive%/*.chk
 del /f /s /q %systemdrive%/*.old
 del /f /s /q %systemdrive%/recycled/*.*
 del /f /s /q %windir%/*.bak

 del /f /s /q %windir%/prefetch/*.*
 rd /s /q %windir%/temp & md %windir%/temp
 del /f /q %userprofile%/cookies/*.*
 del /f /q %userprofile%/recent/*.*
 del /f /s /q "%userprofile%/Local Settings/Temporary Internet Files/*.*"
 del /f /s /q "%userprofile%/Local Settings/Temp/*.*"
 del /f /s /q "%userprofile%/recent/*.*"
 echo 清除系统LJ完成!
 echo. & pause

vbs脚本
On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.DeleteFolder("C:/WINDOWS/Cookies/*.*"),True
fso.DeleteFile("C:/WINDOWS/Cookies/*.*"),True
fso.DeleteFolder("C:/WINDOWS/History/*.*"),True
fso.DeleteFile("C:/WINDOWS/History/*.*"),True
fso.DeleteFolder("C:/WINDOWS/Temp/*.*"),True
fso.DeleteFile("C:/WINDOWS/Temp/*.*"),True
fso.DeleteFolder("C:/RECYCLED/*.*"),True
fso.DeleteFile("C:/RECYCLED/*.*"),True
fso.DeleteFolder("C:/WINDOWS/Temporary Internet Files/*.*"),True
fso.DeleteFile("C:/WINDOWS/Temporary Internet Files/*.*"),True
msgbox("清理完毕")