<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The total size in bytes is: " & d.TotalSize)
set d=nothing
set fs=nothing
%>

Output:

The total size in bytes is: 4293563392