Ciao a tutti.

Stavo provando a ottenere tramite codice ASP le informazioni riguardanti tutte le unità di sistema.

Il codice è il seguente:
codice:
<%
Option explicit
Sub Main()
 Dim objFSO 'As Scripting.FileSystemObject
 Dim drvLoop ' As Scripting.Drive
 
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 For Each drvLoop In objFSO.Drives
     Response.Write drvLoop.DriveLetter & ":\"
     If dvrLoop.DriveType = Fixed _
     Or dvrLoop.IsReady Then
       Response.Write "   Dimensione totale:   " _
       & Format$(drvLoop.TotalSize / (1024 ^ 2), "0.00 MB")
       Response.Write "   Spazio libero:   " _
       & Format$(drvLoop.FreeSpace / (1024 ^ 2), "0.00 MB")
       Response.Write "   Etichetta di volume:   " & dvrLoop.VolumeName
     Else
       Response.Write "   Informazioni non disponibili"
     End If
 Next 

 Set objFSO = Nothing

End Sub
%>
Premetto, l'ho preso da un manuale, non funziona, mi riporta una pagina bianca vuota come risultato.
Non capisco che formattazione sia la (Format$) ho provato a formattare diversamente ma senza risultato, riporta o la stessa pagina bianca o l'errore 500 classico.

Aiuti? Suggerimenti?