■Topics

---

物理ディスクの情報を取得するサンプルです。Win32_DiskDriveクラスを使用します。

---

■Sample Code

---

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

---

■Comment

---

実行してみると実際に搭載されているDiskの一覧が表示されます。
インターフェースが何で接続されているかも表示されます。(ただし私の環境ではIDE接続の環境しかないので実際SCSIの場合はどうなるかは不明です。)
実際Win32_DiskDriveクラスにはDiskのシリンダやセクターの大きさなどのプロパティも用意されていますのでもっと詳しい内容の取得も可能です。

---