利用 WindowsInstaller.Installer 對象計算文件 MD5 hash 值

Option Explicit

Dim wi
Dim file
Dim file_size
DIm file_attributes
Dim file_version
Dim file_hash

Set wi = CreateObject("WindowsInstaller.Installer")
file = "C:\WINDOWS\explorer.exe"
file_size = wi.FileSize(file)
file_attributes = wi.FileAttributes(file)
file_version = wi.FileVersion(file)
file_hash = GetFileHash(file)

Set wi = Nothing

MsgBox "File: " & file & vbCrLf &_
        "Size: " & file_size & vbCrLf &_
        "Attributes: " & file_attributes & vbCrLf &_
        "Version: " & file_version & vbCrLf &_
        "MD5: " & file_hash

Function GetFileHash(file_name)
        Dim file_hash
        Dim hash_value
        Dim i

        Set file_hash = wi.FileHash(file_name, 0)

        hash_value = ""

        For i = 1 To file_hash.FieldCount
                hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
        Next

        GetFileHash = hash_value

        Set file_hash = Nothing
End Function

Function BigEndianHex(int)
        Dim result
        Dim b1, b2, b3, b4

        result = Hex(int)
        b1 = Mid(result, 7, 2)
        b2 = Mid(result, 5, 2)
        b3 = Mid(result, 3, 2)
        b4 = Mid(result, 1, 2)

        BigEndianHex = b1 & b2 & b3 & b4
End Function

轉自hi.baidu.com/umu618