[VBSCRIPT ] 取得所有磁碟可用率並判斷是否超過80%

'建立WMI Namespace物件root\CIMV2
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

'取得Namespace的Class物件Win32_LogicalDisk
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")

'取出屬性DriveType為3的磁碟機代號(2是軟碟,5是光碟)並計算剩餘空間使用率
For Each objItem in colItems
    IF objItem.DriveType=3 Then
       freeDiskSize = round(objItem.FreeSpace/objItem.Size*100,2)
          IF freeDiskSize > 80 THEN
             WSCRIPT.ECHO objItem.Caption & freeDiskSize & " -- 可用空間大於80%"
          ELSE
             WSCRIPT.ECHO objItem.Caption & freeDiskSize & " -- 可用空間小於80%"
          End IF
    End IF
Next