'■サンプル:以下をスクリプトとして拡張子vbsで保存(ダブルクリックで実行) Set wsl = WScript.CreateObject("WScript.Shell")
'画面のプロパティ(設定タブ)を起動する wsl.run "control desk.cpl ,3": cnt =0 do: WScript.Sleep 100: cnt=cnt+1 loop while not wsl.AppActivate("画面のプロパティ") and cnt < 9 if not wsl.AppActivate("画面のプロパティ") then MsgBox "起動失敗": WScript.Quit