出力オーディオデバイス変更WSH

PC

以前どこかのWEBに載っていたオーディオ デバイスの変更WSHをHDDのゴミから発見しました。
WindosXPで思うように動かないのと、自分のデバイス環境に合わせて変更。
アイコンクリックで ATI HD Audio rear output 、USB Audio 、Realtek HD Audio output の出力を選べるようにWindosws Scripting Host を作成しました。
ソースは以下の通りです、好きに使って下さい。

Dim wAudio
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

' 予めデバイス選択  先頭一文字で選ぶ
wAudio = InputBox("Audio device name Realtek , Ati , Usb" , "Audio device changer" , "u")
If  len(wAudio) = 0   Then
	WScript.Quit
End If

' オーディオ デバイス起動
objWshShell.Run "control MMsys.cpl ,1", 1, False
WScript.Sleep 500 
objWshShell.AppActivate "サウンドとオーディオ デバイスのプロパティ"
WScript.Sleep 200 

' Audio 既存デバイスの設定
objWshShell.SendKeys "+{TAB}"
WScript.Sleep 200 
objWshShell.SendKeys "{RIGHT}"
WScript.Sleep 200 
objWshShell.SendKeys "{TAB}"
WScript.Sleep 500 
objWshShell.SendKeys wAudio, True
objWshShell.SendKeys "{Enter}"
WScript.Quit