Kulaklıkların VBScript ile takılıp takılmadığını tespit etme

Question

VBScript ile kulaklık takılıp takılmadığını tespit etmenin bir yolu var mı?

Bu bağlantı doesnt yardım Switching current active sound device using VBScript?

Answer 1

Sen Win32_SoundDevice WMI sınıfı kullanmak gerekir.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice",,48) 
For Each objItem in colItems 
    Wscript.Echo "Availability: " & objItem.Availability 
    Wscript.Echo "Caption: " & objItem.Caption 
    Wscript.Echo "Description: " & objItem.Description 
    Wscript.Echo "Name: " & objItem.Name 
    Wscript.Echo "Status: " & objItem.Status 
    Wscript.Echo "StatusInfo: " & objItem.StatusInfo 
Next 

(source)

Bazı karşılaştırma yapacağını öncesi ve kulaklık taktıktan sonra çalışır ve oradan devam: Burada iyi bir başlangıç ​​noktası olabilir örnek bir komut dosyasıdır.