取得音效卡資訊

取得音效卡資訊

使用 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