Ermitteln, ob Kopfhörer angeschlossen sind oder nicht über VBScript

Question

Gibt es eine Möglichkeit zu erkennen, ob Kopfhörer über VBScript angeschlossen sind oder nicht?

Dieser Link hilft nicht Switching current active sound device using VBScript?

Answer 1

sollten Sie in der Lage sein, die Win32_SoundDevice WMI-Klasse zu verwenden. Hier ist ein Beispielskript, das ein guter Ausgangspunkt sein könnte:

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)

Ich würde einen Vergleich tun läuft vor und nach in Ihrem Kopfhörer anschließen und von dort aus gehen.