使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。

　　方法一：

　　使用批处理，将以下代码保存为文件 AutoDefrag.bat

　　for %%d in (c: d: e:) do defrag %%d /f

　　需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。

　　方法二：

　　使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本

　　set WshShell = CreateObject("WScript.Shell")

　　'启动图形界面的整理程序

　　WshShell.Run "dfrg.msc"

　　WScript.Sleep 1000

　　'等待1秒钟，用于程序启动

　　While WshShell.AppActivate("磁盘碎片整理程序") = FALSE

　　wscript.sleep 1000

　　Wend

　　'将磁盘碎片整理程序选为当前窗口

　　WshShell.AppActivate "磁盘碎片整理程序"

　　WScript.Sleep 200

　　'按下“ALT+A”打开下拉菜单

　　WshShell.SendKeys "%A"

　　WScript.Sleep 200

　　'按下“D”键

　　WshShell.SendKeys "D"

　　'整理完毕后等待5秒钟

　　While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE

　　wscript.sleep 5000

　　Wend

　　'激活该窗口

　　WshShell.AppActivate "磁盘碎片整理完毕"

　　WScript.Sleep 200

　　WshShell.Sendkeys "{TAB}"

　　Wscript.Sleep 500

　　WshShell.Sendkeys "{ENTER}"

　　Wscript.Sleep 500

　　'按下“ALT+F4”关闭整理程序

　　WshShell.Sendkeys "%{F4}"

　　使用方法：双击