This example displays the free space on a drive

<%
Dim objFSO , objDrive
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("C:")
Response.Write "Drive " & objDrive & " has " & objDrive.FreeSpace & " of free space "
Set objFSO = Nothing
Set objDrive = Nothing
%>