ソースコード
Set shell = CreateObject("WScript.Shell") shell.Run "control javacpl.cpl" ' このやり方はXP用 ' コンパネ開く Call WaitWindow("Java コントロールパネル") WScript.Sleep 500 : shell.SendKeys "{Right}" WScript.Sleep 300 : shell.SendKeys "{Tab}" WScript.Sleep 300 : shell.SendKeys "{Tab}" WScript.Sleep 300 : shell.SendKeys " " ' 警告ウィンドウが出る - 「確認しない」にする Call WaitWindow("Java Update - 警告") WScript.Sleep 500 : shell.SendKeys "{Tab} " ' コンパネを確定するためにEnter WScript.Sleep 500 : shell.SendKeys "{Enter}" ' name が開くまで確実に待つ Function WaitWindow(name) Do If shell.AppActivate(name) Then Exit Do End If WScript.Sleep 100 Loop End Function
解説
JavaUpdateのコンパネダイアログは開くまでわりと時間がかかるため、AppActivateでアクティブになるまで待つことにしている。