ヘッドフォンがVBScript経由でプラグインされているかどうかを検出

Question

ヘッドフォンがVBScript経由で接続されているかどうかを検出する方法はありますか？

このリンクdoesntのヘルプSwitching current active sound device using VBScript?

Answer 1

あなたはWin32_SoundDevice WMIクラスを使用することができるはずです。

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）

私はいくつかの比較を行うだろうが、前とヘッドフォンを接続した後に実行され、そこから行く：ここでは良い出発点であるかもしれないサンプルスクリプトです。