Konuyla ilgili ben de bir kod paylaşayım. Aşağıdaki kod ile ses kartınızın ve pc nize takılı ses cihazlarının markasıyla, üreticisinin ismini alabilirsiniz.
Kod:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_SoundDevice", , 48)
For Each objItem In colItems
MsgBox "Ürün ismi: " & objItem.ProductName & vbCrLf & _
"Ürün Firması: " & objItem.Manufacturer
Next