RegDiff 0.12d を使用したバッチ比較スクリプト

Regdiff と同じディレクトリに置く

まずは実行し、メッセージボックスが表示されたら
レジストリが変更されるであろう処理を行ってから、
OK ボタンで処理を続行します。

最後に result.txt が作成されるので、
その中の情報より必要な情報をチェックする事ができます

ブラウザでダウンロード

reg_diff.vbs

Set WshShell = CreateObject( "WScript.Shell" )

Set Fso = CreateObject( "Scripting.FileSystemObject" )

strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path

k1 = "HKEY_CLASSES_ROOT"
k2 = "HKEY_CURRENT_USER"
k3 = "HKEY_LOCAL_MACHINE"

Call WshShell.Run( "regedit /e " & strCurPath & "\" & k1 & ".001 " & k1, , True )
Call WshShell.Run( "regedit /e " & strCurPath & "\" & k2 & ".001 " & k2, , True )
Call WshShell.Run( "regedit /e " & strCurPath & "\" & k3 & ".001 " & k3, , True )

MsgBox("処理後 OK で継続　　　")

Call WshShell.Run( "regedit /e " & strCurPath & "\" & k1 & ".002 " & k1, , True )
Call WshShell.Run( "regedit /e " & strCurPath & "\" & k2 & ".002 " & k2, , True )
Call WshShell.Run( "regedit /e " & strCurPath & "\" & k3 & ".002 " & k3, , True )

Call WshShell.Run( "REGDIFF " & strCurPath & "\" & k1 & ".001 " & strCurPath & "\" & k1 & ".002 " & k1 & ".diff", , True )
Call WshShell.Run( "REGDIFF " & strCurPath & "\" & k2 & ".001 " & strCurPath & "\" & k2 & ".002 " & k2 & ".diff", , True )
Call WshShell.Run( "REGDIFF " & strCurPath & "\" & k3 & ".001 " & strCurPath & "\" & k3 & ".002 " & k3 & ".diff", , True )

Call WshShell.Run( _
	"cmd.exe /c copy " _
	& strCurPath & "\" & k1 & ".diff + "  _
	& strCurPath & "\" & k2 & ".diff + " _
	& strCurPath & "\" & k3 & ".diff result.txt", 0, True )

Call WshShell.Run( "cmd /c del " & strCurPath & "\*.001", 0, True )
Call WshShell.Run( "cmd /c del " & strCurPath & "\*.002", 0, True )
Call WshShell.Run( "cmd /c del " & strCurPath & "\*.diff", 0, True )

'Call WshShell.Run( """C:\Program Files\tpad092\TeraPad.exe"" result.txt", , True )