set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "C:\Program Files\Nircmd\nircmdc.exe", "setdefaultsounddevice casque 1", , , 0