作成 2010.01.08
更新 2011.10.24
更新 2011.10.24
VBScript でディスクの空き容量を取得する
Win32_Volume は Vista, 2008から使用できます。
Win32_LogicalDisk ではサブフォルダにマウントしたボリュームを取得できません。
Win32_LogicalDisk ではサブフォルダにマウントしたボリュームを取得できません。
コード
Option Explicit
Dim wmiLocator
Dim wmiService
Dim objEnumerator
Dim objInstance
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiService = wmiLocator.ConnectServer
Set objEnumerator = wmiService.ExecQuery("Select * From Win32_Volume")
For Each objInstance In objEnumerator
WScript.Echo objInstance.DriveLetter & vbTab & objInstance.Capacity & vbTab & _
objInstance.FreeSpace & vbTab & objInstance.FileSystem & vbTab & objInstance.DriveType
Next
実行結果
C:\>cscript "ディスクの空き容量を取得する.vbs"
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
104853504 73773056 NTFS 3
X: 8795958759424 8211049603072 NTFS 3
C: 119926681600 82213593088 NTFS 3
D: 5
C:\>
参考