WinMerge レポート生成 比較結果保存 vbs

'
'使い方： C:\WinMerge比較結果保存.vbs 比較ファイルA 比較ファイルB 保存先ファイル名.html
'WinMerge Ver2.14
'
Dim WshShell
Dim oParam
Set oParam = WScript.Arguments

Set WshShell=Wscript.CreateObject("Wscript.Shell")

'WinMerge インストールディレクトリに移動
WshShell.CurrentDirectory = "D:\Program Files (x86)\WinMerge"

'WinMerge比較実行
WshShell.Run("WinMergeU.exe " & oParam(0) & " " & oParam(1))
'処理速度の遅いPC用にウェイト
WScript.Sleep(1000)

'比較結果保存コマンド送信
WshShell.SendKeys("%(T)")
WshShell.SendKeys("R")
WshShell.SendKeys(oParam(2))
WScript.Sleep(100)

'ＯＫコマンド送信
WshShell.SendKeys("{ENTER}")
WScript.Sleep(100)

'ＯＫコマンド送信
WshShell.SendKeys("{ENTER}")
WScript.Sleep(100)

'WinMerge終了コマンド送信
WshShell.SendKeys("%(F)")
WshShell.SendKeys("X")