フロッピーディスクドライブの情報を取得する: Win32_FloppyDrive
■Topics
フロッピーディスクドライブの情報を取得するサンプルです。Win32_FloppyDriveクラスを使用します。
Private Sub Command1_Click()
Dim FdSet As SWbemObjectSet
Dim Fd As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set FdSet = Service.ExecQuery("Select * From Win32_FloppyDrive")
For Each Fd In FdSet
MesStr = MesStr & vbCrLf & _
"フロッピードライブ名：" & Fd.Name & vbCrLf & _
"製造元：" & Fd.Manufacturer & vbCrLf
Next
MsgBox "フロッピーディスクドライブの一覧です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set FdSet = Nothing
Set Fd = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim FdSet As SWbemObjectSet
Dim Fd As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set FdSet = Service.ExecQuery("Select * From Win32_FloppyDrive")
For Each Fd In FdSet
MesStr = MesStr & vbCrLf & _
"フロッピードライブ名：" & Fd.Name & vbCrLf & _
"製造元：" & Fd.Manufacturer & vbCrLf
Next
MsgBox "フロッピーディスクドライブの一覧です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set FdSet = Nothing
Set Fd = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行するとフロッピーディスクドライブを表示します。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。