<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
set disk = FSO.GetDrive ("C")
'SPAZIO LIBERO
strFreeSpace = disk.FreeSpace
strFreeSpace = strFreeSpace/1024 ' in KB
strFreeSpace = FormatNumber(strFreeSpace, 0)
'SPAZIO TOTALE
strSpace = disk.TotalSize
strSpace = strSpace/1024 ' in KB
strSpace = FormatNumber(strSpace, 0)
response.write "<P>" & strFreeSpace
response.write " kb di spazio libero su "
response.write strSpace & " kb totali.</P>"
set disk = Nothing
Set FSO = Nothing
%>