VBScript 利用 WindowsInstaller.Installer 物件計算文件 MD5 雜湊值

需求場景

在無第三方工具、純系統內建環境（Windows Script Host）下快速獲取文件 MD5、大小、版本、屬性等資訊。

核心物件：WindowsInstaller.Installer

Windows Installer 服務提供的 COM 物件，暴露 FileHash 方法可計算文件雜湊（支援 MD5、SHA1 等）。

完整 VBScript 代碼

Option Explicit

Dim wi, file, file_size, file_attributes, file_version, 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, hash_value, i
    ' 0 = MD5, 1 = SHA1, 2 = SHA256, 3 = SHA384, 4 = SHA512
    Set file_hash = wi.FileHash(file_name, 0)
    hash_value = ""
    For i = 1 To file_hash.FieldCount
        ' IntegerData 返回小端序 32 位整數，需轉大端序十六進位
        hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
    Next
    GetFileHash = hash_value
    Set file_hash = Nothing
End Function

Function BigEndianHex(int_val)
    Dim result, b1, b2, b3, b4
    result = Hex(int_val) ' 返回不足 8 位前導零會缺失
    ' 補零至 8 字符
    result = Right("00000000" & result, 8)
    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

關鍵細節解析

• FileHash(path, type)：type=0 為 MD5，返回 Record 物件。
• Record.FieldCount：MD5 為 4 個 32 位字段（共 128 位）。
• Record.IntegerData(i)：返回**小端序**整數（低位在前），需逐字節反轉為標準大端序十六進位顯示。
• BigEndianHex：補零 + 字節序交換 (12345678 → 78563412)。

優缺點評價

現代替代方案

• PowerShell：Get-FileHash -Algorithm MD5 file.exe（原生、跨平台 Core 6+）。
• certutil：certutil -hashfile file.exe MD5（系統內建、命令列）。
• Python：hashlib.md5(open(f,'rb').read()).hexdigest()（腳本首選）。

總結

WindowsInstaller.Installer 是舊版 Windows 系統管理腳本獲取文件雜湊的經典技巧。理解其 COM 介面、字節序處理，有助於維護遺留自動化腳本。新專案請優先使用 PowerShell 或跨平台語言實現。

1. 上一篇文章： SIMD 優化實戰：使用 SSE 指令集加速圖像灰度轉換浮點運算
2. 下一篇文章： C/C++ main 函式參數 argc、argv、envp 完整詳解與實戰範例

關於C語言

漫談算法（四）：分治算法遞歸式求解三大法——數學歸納法、遞歸樹、主定理

作者：劉子韜 分治算法定義 基於多分支遞歸的算法設計範式：

C語言指標與字符串：字符類型、輸入輸出與轉義字符詳解

C語言指標與字符串：字符類型、輸入輸出與轉義字符詳解 字符類

.NET 不用控件實現資料夾監控系統：FileSystemWatcher 核心應用與開機自啟完整實作

專案需求：監控特定資料夾檔案變更、開機自動啟動、變更即時通知

C語言指標實戰：直接向記憶體位址寫入資料驗證

實驗程式碼 #include <stdio.h>