物理ディスクの情報を取得する: Win32_DiskDrive - WMI Sample (VB)

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_DiskDrive")

For Each Disk In DiskSet

MesStr = MesStr & vbCrLf & _
"Diskの名前：" & Disk.Caption & vbCrLf & _
"DiskのデバイスID：" & Disk.DeviceID & vbCrLf & _
"Diskのインターフェース:" & Disk.InterfaceType & vbCrLf & _
"Diskのタイプ:" & Disk.MediaType & vbCrLf & _
"Diskのサイズ:" & CStr(Disk.Size) & vbCrLf & _
"Diskのステータス:" & Disk.Status & vbCrLf

Next

MsgBox "Diskの色々な情報です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"

Set DiskSet = Nothing
Set Disk = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub