取得音效卡資訊
使用 WMI 取得音效卡內容
Dim colSoundCards As Object
Dim objSoundCard As Object
' WMI (Windows Management Instrumentation )
' GetObject("winmgmts:") 使用GetObject 函數 取得 WMI 物件
' 使用ExecQuery方法執行 Query查詢
' Select * from Win32_SoundDevice 查詢音效裝置
Set colSoundCards = GetObject("winmgmts:").ExecQuery( _
"Select * from Win32_SoundDevice")
' For Each / Next 迴圈列舉音效裝置及相關資訊
For Each objSoundCard In colSoundCards
MsgBox objSoundCard.SystemName ' 系統名稱
MsgBox objSoundCard.Manufacturer ' 製造業者 , 廠商
MsgBox objSoundCard.ProductName ' 產品名稱
Next