Defragment Disk This script will defragment all hard drives on Windows Vista and Windows Server 2003. Rate this script:0 Stars - Lowest1 Star2 Stars3 Stars4 Stars5 Stars - Highest Added 338 days ago by Emnico		Download
		Review
		Back
	223	Views

This script has been successfully tested by Emnico and is verified to be working.

Source code

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colVolumes = objWMIService.ExecQuery("Select * from Win32_Volume")

For Each objVolume in colVolumes
	errResult = objVolume.DefragAnalysis(blnRecommended, objReport)
    If errResult = 0 Then
        Wscript.Echo "Volume name: " & objVolume.Name
        If blnRecommended Then
           Wscript.Echo "You should defragment this volume."
           
           
    		Wscript.Echo "Please wait while drive " & objVolume.Name & " is defragged."
    		Wscript.Echo
    		errResult = objVolume.Defrag()

    		If errResult = 0 Then
        		Wscript.Echo "Drive " & objVolume.Name & " successfully defragged."
    		Else
        		Wscript.Echo "Drive " & objVolume.Name & " could not be defragged."
        		Wscript.Echo "Error number " & errResult & " occurred."
        		Err.Clear
    		End If
   
        Else
           Wscript.Echo "You do not need to defragment this volume."
        End If
	End If
Next

User Reviews