Asp. 디스크 용량 모니터링

출처 : serverinfo

<%
        Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
        Set Drives = FileSystemObject.Drives
        For Each DiskDrive in Drives
                If DiskDrive.IsReady Then
                        totalspace = DiskDrive.TotalSize
                        freespace = DiskDrive.FreeSpace
                        usedspace = totalspace - freespace
                        freepercent = Int((freespace/totalspace)*100)
                        freemb = Int((freespace/1024)/1024)
                        usedmb = Int((usedspace/1024)/1024)
                        usedpercent = Int((usedspace/totalspace)*100)
                        If freespace =< 1048576 Then
                                freelabel = FormatNumber(freespace/1024, 1) & " Kb"
                        Elseif freespace =< 1073741824 then
                                freelabel = FormatNumber((freespace/1024)/1024, 1) & " Mb"
                        Else
                                freelabel = FormatNumber(((freespace/1024)/1024)/1024, 2) & " Gb"
                        End If
                        If usedspace =< 1048576 Then
                                usedlabel = FormatNumber(usedspace/1024, 1) & " Kb"
                        Elseif usedspace =< 1073741824 Then
                                usedlabel = FormatNumber((usedspace/1024)/1024, 1) & " Mb"
                        Else
                                usedlabel = FormatNumber(((usedspace/1024)/1024)/1024, 2) & " Gb"
                        End If
                        If Left(freelabel,3) = "0.0" Then freelabel = "0 bytes"
                        If Left(usedlabel,3) = "0.0" Then usedlabel = "0 bytes"
                        used_alt_tag = "Drive " & DiskDrive.DriveLetter & ": " & usedlabel & " in use"
                        free_alt_tag = "Drive " & DiskDrive.DriveLetter & ": " & freelabel & " free"
                        Response.Write "Drive " & DiskDrive.DriveLetter & ": "
                        If DiskDrive.VolumeName <> "" then
                                Response.Write "[" & DiskDrive.VolumeName & "] : "
                        End If
                        Response.Write "<br>"
                End If
        Next
        Set Drives = nothing
        Set FileSystemObject = nothing
%>