VBAでファイルのMD5をcertutilコマンドを使って取得する

certutilコマンドでのMD5の取得方法

VBAでMD5を取得する方法にはいくつかありますが、ここではWindows標準のcertutilコマンドを使う方法を紹介します。

certutilコマンドでファイルのMD5を取得するには以下のようなコマンドを実行します。

certutil -hashfile "C:\test\a.txt" MD5

1	certutil -hashfile "C:\test\a.txt" MD5

あとはVBAからこのコマンドを実行すればOKです。

VBAからコマンドプロンプトの実行を行う方法については「VBAでコマンドプロンプトの起動とコマンドの実行を行う」をご参照ください。

事前設定

以下のソースコードではコマンドプロンプトの実行にWshShellクラスを利用しています。

WshShellクラスを利用するために、VBA画面→ツールメニュー→参照設定で「Windows Script Host Object Model」を選択します。これでWshShellクラスを利用できるようになります。

WshShellクラスの変数宣言はIWshRuntimeLibraryライブラリに含まれるため、IWshRuntimeLibrary.WshShellと書いてもいいですし、IWshRuntimeLibraryを書かずにWshShellだけを書いてもいいです。以下のwsh1とwsh2のどちらの書き方もOKです。

Dim wsh1 As IWshRuntimeLibrary.WshShell
Dim wsh2 As WshShell

Set wsh1 = New IWshRuntimeLibrary.WshShell
Set wsh2 = New WshShell

Dim wsh1 As IWshRuntimeLibrary.WshShell

Dim wsh2 As WshShell

Set wsh1 = New IWshRuntimeLibrary.WshShell

Set wsh2 = New WshShell

ファイルのMD5を取得するソースコード

Sub GetMD5()
    Dim sFilePath       As String           '// ファイルパス
    Dim wsh             As WshShell         '// WshShellクラス
    Dim ex              As WshExec          '// WshExecクラス
    Dim ar()            As String           '// ファイルパス配列
    Dim i               As Integer          '// ループカウンタ
    Dim sCmd            As String           '// コマンド文字列
    
    '// WshShellインスタンス作成
    Set wsh = New WshShell
    
    ReDim ar(4)
    ar(0) = "C:\test\テキスト ドキュメント.txt"
    ar(1) = "C:\test\テキスト ドキュメント.txt"
    ar(2) = "C:\test\テキスト ドキュメント.txt"
    ar(3) = "C:\test\テキスト ドキュメント.txt"
    ar(4) = "C:\test\テキスト ドキュメント.txt"
    
    '// コマンド文字列の設定（ドライブとディレクトリの指定は必須）
    sCmd = "C: & "
    sCmd = sCmd & "cd C:\test\ "
    
    '// 配列ループ
    For i = 0 To UBound(ar)
        '// certutilコマンドを連結
        sCmd = sCmd & " & certutil -hashfile """ & ar(i) & """ MD5|findstr -v "":"">>MD5.txt "
    Next
    
    '// コマンドを実行
    Set ex = wsh.Exec("cmd.exe /c " & sCmd)
End Sub

Sub GetMD5()

Dim sFilePath As String '// ファイルパス

Dim wsh As WshShell '// WshShellクラス

Dim ex As WshExec '// WshExecクラス

Dim ar() As String '// ファイルパス配列

Dim i As Integer '// ループカウンタ

Dim sCmd As String '// コマンド文字列

'// WshShellインスタンス作成

Set wsh = New WshShell

ReDim ar(4)

ar(0) = "C:\test\テキストドキュメント.txt"

ar(1) = "C:\test\テキストドキュメント.txt"

ar(2) = "C:\test\テキストドキュメント.txt"

ar(3) = "C:\test\テキストドキュメント.txt"

ar(4) = "C:\test\テキストドキュメント.txt"

'// コマンド文字列の設定（ドライブとディレクトリの指定は必須）

sCmd = "C: & "

sCmd = sCmd & "cd C:\test\ "

'// 配列ループ

For i = 0 To UBound(ar)

'// certutilコマンドを連結

sCmd = sCmd & " & certutil -hashfile """ & ar(i) & """ MD5|findstr -v "":"">>MD5.txt "

'// コマンドを実行

Set ex = wsh.Exec("cmd.exe /c " & sCmd)

End Sub

ここでは5つのファイルのMD5をcertutilコマンドで取得し、それをMD5.txtに出力しています。同じファイルを５回・・・という。。

よくハマる落とし穴がコマンド文字列のドライブとディレクトリの指定漏れです。これが無いと動きません。バッチファイルを書く場合、そのバッチファイルの置き場はドライブとディレクトリがカレントディレクトリとなりますが、VBAでコマンドを実行する場合はバッチファイルと異なりカレントディレクトリが未決定の状態です。

そのため、事前にドライブとディレクトリを指定してカレントディレクトリを明示してあげないと、以降のコマンドでファイル名だけを指定したりしていると、どのディレクトリなのか分からず正しく動作しません。

コマンド結果をクリップボードに保存してそれを使うことも出来ますが、上のコードでは複数のコマンドを「 & 」で連結して一度に実行し、コマンド結果をファイルに出力しています。クリップボードを使わないのは理由があります。

例えば以下のようにclip指定をしてクリップボードに保存することも出来ます。

certutil -hashfile "C:\test\a.txt" MD5|findstr -v "":""|clip

1	certutil -hashfile "C:\test\a.txt" MD5\|findstr -v "":""\|clip

しかし、クリップボードへのコピーの処理は結構遅く、それよりもVBAの処理が速いため、クリップボードの内容が１度更新される間にVBAの処理が終わってしまった、なんてことが普通に起こります。また、クリップボードは他のアプリケーションなどでも共有で利用するため、VBAだけの処理で使っているとは限らないこともあります。このようにクリップボードを使う場合は信頼性が乏しいことからファイル出力での処理としています。

certutilコマンドの結果を「findstr -v “:”」として「:」がない行を対象としているのは、certutilコマンドを実行すると以下のように3行出力するため、不要な上下の行を除外するためです。

MD5 ハッシュ (ファイル V:\test\a.txt):
33 0e dd 5c ac 82 f7 60 30 8e 0a 94 92 04 85 7e
CertUtil: -hashfile コマンドは正常に完了しました。

MD5 ハッシュ (ファイル V:\test\a.txt):

33 0e dd 5c ac 82 f7 60 30 8e 0a 94 92 04 85 7e

CertUtil: -hashfile コマンドは正常に完了しました。

実行結果

MD5.txtに以下のように出力されます。同じファイルを5つに対してMD5を求めたため５行とも同じ内容になっています。なおWindows 7や8.1の場合は以下のように16進数値ごとに半角スペースで区切られますが、Windows 10の場合は半角スペースがなく16進数文字列が連続して表示されます。

35 e2 6f 21 8b 16 77 8a c7 bc 07 c2 da 43 8d e8
35 e2 6f 21 8b 16 77 8a c7 bc 07 c2 da 43 8d e8
35 e2 6f 21 8b 16 77 8a c7 bc 07 c2 da 43 8d e8
35 e2 6f 21 8b 16 77 8a c7 bc 07 c2 da 43 8d e8
35 e2 6f 21 8b 16 77 8a c7 bc 07 c2 da 43 8d e8

SHAを求めたい場合

MD5だけでなく他のハッシュ関数のハッシュ値を求めたい場合は、コード内のcertutil コマンドのMD5を「SHA1」や「SHA256」などに書き換えて実行すると、それぞれの結果が出力されます。