Disk oplysninger

Jeg ville høre om der var nogen der kunne se, hvad jeg gjorde forkert i nedenstående vb script:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objVolume in colVolumes
    errResult = objVolume.DefragAnalysis(blnRecommended, objReport)
        If errResult = 0 then
            Wscript.Echo "Cluster size: " & objReport.ClusterSize
        Wscript.Echo "SCSI Logical Unit: " & vbTab & colDiskDrives.SCSILogicalUnit
        End If   
Next