FSO og TotalSize = Disk not ready

Når jeg undlader dd.TotalSize, virker det fint, men hvis jeg ikke fjerner det får jeg fejlen Disk not ready. Hvad er der galt?
IUSR_ har fuld adgang til c:\wwwroot\inetpub og script blocking er deaktiveret i Norton.

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives

function driveType(drive)
  Select Case drive
    case 0: driveType = "Unknown"
    case 1: driveType = "Removable"
    case 2: driveType = "Fixed"
    case 3: driveType = "Network"
    case 4: driveType = "CD-ROM"
    case 5: driveType = "RAM Disk"
  End Select
End Function

For Each Item in dc
    Set dd = fso.GetDrive(Item)
    Response.Write dd.DriveLetter &":\ "& driveType(dd.DriveType) & dd.TotalSize &"<br />"
Next
%>