ディスクのパーティション情報を取得する: Win32_DiskPartition
■Topics
ハードディスクドライブのパーティション情報を取得するサンプルです。Win32_DiskPartitionクラスを使用します。
Private Sub Command1_Click()
Dim DiskSet As SWbemObjectSet
Dim Disk As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set DiskSet = Service.ExecQuery("Select * From Win32_DiskPartition")
For Each Disk In DiskSet
MesStr = MesStr & vbCrLf & _
"パーティション名：" & Disk.Name & vbCrLf & _
"パーティションサイズ：" & Disk.Size & vbCrLf & _
"ブートパーティション:" & Disk.BootPartition & vbCrLf & _
"プライマリパーティション:" & Disk.PrimaryPartition & vbCrLf
Next
MsgBox "ディスクのパーティション情報です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set DiskSet = Nothing
Set Disk = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim DiskSet As SWbemObjectSet
Dim Disk As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set DiskSet = Service.ExecQuery("Select * From Win32_DiskPartition")
For Each Disk In DiskSet
MesStr = MesStr & vbCrLf & _
"パーティション名：" & Disk.Name & vbCrLf & _
"パーティションサイズ：" & Disk.Size & vbCrLf & _
"ブートパーティション:" & Disk.BootPartition & vbCrLf & _
"プライマリパーティション:" & Disk.PrimaryPartition & vbCrLf
Next
MsgBox "ディスクのパーティション情報です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set DiskSet = Nothing
Set Disk = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると各パーティションごとにサイズ・ブートパーティション・プライマリーパーティションを表示します。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。