物理ディスクの情報を取得する: Win32_DiskDrive
■Topics
物理ディスクの情報を取得するサンプルです。Win32_DiskDriveクラスを使用します。
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
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
実行してみると実際に搭載されている物理ディスクの一覧が表示されます。
ATA/SATA/USB(R-DriverのようなUSB-IDE/SATA変換)等接続されるインターフェースに関しては特に制限は無くDiskDrive扱いのドライブであれば表示されるようです。
実際Win32_DiskDriveクラスにはDiskのシリンダやセクターの大きさなどのプロパティも用意されていますのでもっと詳しい内容の取得も可能です。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。