Переключение текущего активного звукового устройства с помощью VBScript?

Я хочу переключаться между двумя аудиоустройствами, подключенными к моему компьютеру (32-битная Windows 7). Я посмотрел навопрос, и нашелNirCmd.

Теперь я могу создать два VBS-файла для переключения между двумя устройствами. Мне было интересно, смогу ли я узнать, каково текущее активное / звуковое устройство по умолчанию, тогда я мог бы поместить все в один файл.

Мой текущий код -

Set WshShell = CreateObject("WScript.Shell")
cmds=WshShell.RUN("L:\MyApps\NirCmd\nircmd.exe setdefaultsounddevice ""Speakers""", 0, True)
Set WshShell = Nothing

Другой файл имеет «Наушники» вместо «Динамики».

Ответы на вопрос(1)

Ваш ответ на вопрос