Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "control.exe javacpl.cpl"
Do Until objWshShell.AppActivate("java コントロールパネル")
    WScript.Sleep 1000
Loop
objWshShell.SendKeys "{LEFT}"
WScript.Sleep 500
objWshShell.SendKeys "{TAB}"
WScript.Sleep 500
objWshShell.SendKeys "{DOWN 10}"
WScript.Sleep 500
objWshShell.SendKeys "{RIGHT}"
WScript.Sleep 500
objWshShell.SendKeys "{DOWN 2}"
WScript.Sleep 500
objWshShell.SendKeys "^ "
WScript.Sleep 500
objWshShell.SendKeys "~"
WScript.Quit