【スクリプト改造依頼スレ】(丸投げ) part6

【スクリプト改造依� ..

814:nobodyさん
07/11/20 19:16:10
スクリプト改造スレということなので、こちらで質問させて下さい
スレ違いでしたらどうかお許し下さい

【こんなスクリプトにしたい】
「サウンドとオーディオのプロパティ」の「音量」タブが開いた状態でスクリプトを実行させて、
「オーディオ」タブの「音の再生」の「既定のデバイス」を切り替えたい。

以下のスクリプトを改造すればできそうなのですが、アドバイスを頂けないでしょうか。
また、全く新規のスクリプトでもかまいません。
WinXPsp2

「サウンドとオーディオのプロパティ」の「オーディオ」タブを開き、「音の再生」の「既定のデバイス」を切り替えます。
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "control MMsys.cpl ,2", 0, False
WScript.Sleep 500
objWshShell.AppActivate "サウンドとオーディオデバイスのプロパティ"
WScript.Sleep 100
objWshShell.SendKeys "{DOWN}", True
WScript.Sleep 500
objWshShell.SendKeys "{ENTER}", True
URLﾘﾝｸ(kamakura.cool.ne.jp)

次ページ