codice:
strComputer = "."
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
ho preso questo script da microzoz ma non funzia perchè objVolume non è dichiarato -.-"

come posso risolvere?