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