Wykrywanie, czy słuchawki są podłączone za pomocą VBScript

Question

Czy można wykryć, czy słuchawki są podłączone za pomocą VBScript?

Ten link robi help Switching current active sound device using VBScript?

Answer 1

Powinieneś móc używać klasy Win32_SoundDevice WMI. Oto przykładowy skrypt, który może być dobrym punktem wyjścia:

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)

zrobiłbym jakieś porównanie biegnie przed i po podłączeniu słuchawek i go stamtąd.