磁碟的容量也是很重要的一個環節
那要如何取得呢??
利用Drive物件的FreeSpace屬性來取得剩餘的磁碟空間大小
利用Drive物件的TotalSize屬性可取的磁碟的總容量...
一樣，看範例...

Option Explicit

Private FSO
Private d
Private FSize, TSize
Private Ftemp, Ttemp

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each d In FSO.Drives
  If d.IsReady Then
    FSize = d.FreeSpace
    TSize = d.TotalSize
    If FSize > 0 Then
      Ftemp = Fix(Log(FSize) / (10 * Log(2)))
    Else
      Ftemp = 0
    End If
    If TSize > 0 Then
      Ttemp = Fix(Log(TSize) / (10 * Log(2)))
    Else
      Ttemp = 0
    End If
    WScript.Echo d.DriveLetter & vbCrLf & "Free Size：" _
    , CLng(FSize / 2^(Ftemp * 10)) & Split(" K M G T")(Ftemp) & "B" _
    , "(" & FormatNumber(FSize, 0, vbTrue, vbFalse, vbTrue) & "位元組)" & vbCrLf & "Total Size：" _
    , CLng(TSize / 2^(Ttemp * 10)) & Split(" K M G T")(Ttemp) & "B" _
    , "(" & FormatNumber(TSize, 0, vbTrue, vbFalse, vbTrue) & "位元組)"
  End If
Next
Set FSO = Nothing

執行之後，你就可以看到你的電腦裡的所有磁碟的容量
當然這也包含了你目前所有連線的網路磁碟機的容量..

提供給有需要的人..