strComputer = "ginlsrzw58630" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colVolumes = objWMIService.ExecQuery _ ("Select * from Win32_Volume Where Name = 'C:\\'") For Each objVolume in colVolumes 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 Next