【関連付け起動情報の検証】Assoc と Ftype を完全制覇する：VBScriptによる拡張子・既定アプリの動的診断と起動エラー抑止
レガシーシステムの最前線、あるいは厳格に管理された社内ネットワークにおいて、WSH（Windows Script Host）とVBScriptは今なお「インフラの接着剤」として静かに、しかし強烈な存在感を放っている。
日々の自動化スクリプト運用において、最も忌むべき障害の一つが 「想定外のアプリケーションによるファイルオープン」 や 「関連付け喪失による起動エラー（エラー 80070002 など）」 である。`WshShell.Run` を叩く前に、その拡張子が一体どのプログラムにルーティングされているのかをコード自身が把握していなければ、真のロバスト性（堅牢性）とは言えない。
今回は、Windowsレジストリの深層に隠された `Assoc` と `Ftype` のメカニズムをVBScriptの極限まで最適化されたコードで暴き、「動的な関連付け診断と起動前ガード」 を実現するアーキテクチャを解説する。
—
1. 関連付け解決のメカニズム：Assoc と Ftype の深層
Windowsにおけるファイルの関連付けは、二段階のレイヤーで構成されている。これを理解せずして、正確な既定アプリの特定は不可能な。
1. 拡張子レイヤー (`Assoc`):
`.pdf` や `.csv` といった拡張子が、どの「ファイルタイプ（ProgID）」に紐づいているかを定義する。
- 例: `.pdf` $\rightarrow$ `AcroExch.Document`
2. ファイルタイプレイヤー (`Ftype`):
そのファイルタイプが、実際にどの実行ファイル（コマンドライン）で処理されるかを定義する。
- 例: `AcroExch.Document` $\rightarrow$ `”C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe” “%1″`
VBScriptでこれを解決する場合、外部コマンドである `assoc.exe` や `ftype.exe` を叩くアプローチもあるが、プロセス起動のオーバーヘッド、標準出力のキャプチャに伴う一時ファイルの生成、そして環境依存の文字コード問題（OEMコードページとANSIの乖離） を考慮すると、シニアエンジニアとして取るべき選択肢ではない。
我々は WMI（Windows Management Instrumentation） または 直接レジストリを走査するCOMオブジェクト を用いるべきである。今回は、外部プロセスを一切汚染せず、メモリ効率を極限まで高めたレジストリ直叩きアプローチを採用する。
—
2. 実装：【生産現場の防壁】拡張子診断・起動ガードスクリプト
以下のコードは、指定された拡張子の関連付け情報をレジストリから直接引き剥がし、実体の実行パスまで解決した上で、安全にプロセスを起動するための完全版VBScriptである。
‘ ==============================================================================
‘ Script Name: AssocFtypeValidator.vbs
‘ Description: 拡張子の関連付け（Assoc/Ftype）を動的に解決し、安全な起動を保証する診断コード
‘ Architecture: Chief Architect Edition (Memory Optimized / Zero-Process-Spam)
‘ ==============================================================================
Option Explicit
Const HKEY_CLASSES_ROOT = &H80000000
‘ 実行メイン処理
Sub Main()
Dim targetFile, targetExt
targetFile = “C:\Temp\sample.pdf” ‘ 診断・起動対象のファイルパス
‘ 1. 拡張子の抽出
targetExt = GetExtension(targetFile)
WScript.Echo “— [診断開始] 対象ファイル: ” & targetFile & ” (拡張子: ” & targetExt & “) —”
‘ 2. 関連付け情報の解決
Dim appName, launchCommand
launchCommand = ResolveAssociation(targetExt, appName)
If launchCommand = “” Then
WScript.Echo “[CRITICAL] 致命的エラー: 拡張子 ” & targetExt & ” に対する有効な関連付けが見つかりません。”
‘ ここで代替処理やログ記録、管理者への通知を行う
Exit Sub
End If
WScript.Echo “[INFO] 紐づくファイルタイプ/アプリ名: ” & appName
WScript.Echo “[INFO] 解決された実行コマンド: ” & launchCommand
‘ 3. 実行ファイルの存在確認（起動エラーの事前抑止）
Dim exePath
exePath = ExtractExecutablePath(launchCommand)
If Not CheckFileExists(exePath) Then
WScript.Echo “[ERROR] 起動エラー抑止: 関連付けられた実行ファイルが存在しません -> ” & exePath
Exit Sub
End If
WScript.Echo “[SUCCESS] 検証完了: アプリケーションは正常に起動可能です。”
‘ 4. 安全な実行 (必要に応じてコメントアウトを解除)
‘ SafeExecute targetFile
End Sub
‘ — 拡張子取得関数 —
Function GetExtension(filePath)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
GetExtension = LCase(fso.GetExtensionName(filePath))
If GetExtension <> “” Then GetExtension = “.” & GetExtension
Set fso = Nothing
End Function
‘ — assoc および ftype の解決ロジック —
Function ResolveAssociation(ext, ByRef outProgID)
Dim oReg, regPath, progID, ftypeCommand
Set oReg = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv”)
outProgID = “N/A”
ResolveAssociation = “”
‘ Step A: HKCR\[Ext] から ProgID を取得
regPath = ext & “\”
oReg.GetStringValue HKEY_CLASSES_ROOT, regPath, “”, progID
If Err.Number <> 0 Or progID = “” Then
‘ ユーザー固有の関連付け（Explorerの「常にこのアプリを使って開く」）をフォールバック確認
‘ ここでは簡略化のため省略するが、実際にはUserChoiceも走査対象となる
Exit Function
End If
outProgID = progID
‘ Step B: HKCR\[ProgID]\shell\open\command から実行コマンドを取得
regPath = progID & “\shell\open\command\”
oReg.GetStringValue HKEY_CLASSES_ROOT, regPath, “”, ftypeCommand
If Err.Number <> 0 Or ftypeCommand = “” Then
Exit Function
End If
ResolveAssociation = ftypeCommand
Set oReg = Nothing
End Function
‘ — 実行コマンド文字列からパスのみを抽出するパーサー —
Function ExtractExecutablePath(cmdLine)
Dim cleanCmd
cleanCmd = Trim(cmdLine)
‘ 引用符で囲まれている場合の処理 (“C:\Path\To\App.exe” “%1”)
If Left(cleanCmd, 1) = “””” Then
Dim secondQuote
secondQuote = InStr(2, cleanCmd, “”””)
If secondQuote > 0 Then
ExtractExecutablePath = Mid(cleanCmd, 2, secondQuote – 2)
Exit Function
End If
End If
‘ 引用符がない場合は最初のスペースまでをパスとみなす
Dim firstSpace
firstSpace = InStr(cleanCmd, ” “)
If firstSpace > 0 Then
ExtractExecutablePath = Left(cleanCmd, firstSpace – 1)
Else
ExtractExecutablePath = cleanCmd
End If
End Function
‘ — ファイル存在確認 —
Function CheckFileExists(path)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
CheckFileExists = fso.FileExists(path)
Set fso = Nothing
End Function
‘ エントリポイント呼び出し
Main
—
3. チーフアーキテクトが指摘する「実運用上の罠」と最適化の極意
このコードは単なるリファレンスではない。現場の泥臭いトラブルを防ぐための設計上の思想（ガバナンス）が組み込まれている。
① `UserChoice`（ユーザー固有の既定アプリ）の壁
Windows Vista以降、拡張子の関連付けは `HKEY_CLASSES_ROOT` だけでなく、ユーザーごとのレジストリハイブにある `HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\[Ext]\UserChoice` が優先される。
厳密なエンタープライズ環境では、上記の `StdRegProv` 走査の前に `HKCU` 側の `ProgId` 値が存在するかどうかをチェックするフォールバックロジックを挟むべきである。これを怠ると、「管理者はA社製ビューアを想定しているのに、現場のPCではB社製ビューアが勝手に立ち上がってレイアウトが崩れる」という事故を防げない。
② メモリリークとCOMオブジェクトの解放
VBScriptにおいて、`CreateObject` で生成したCOMオブジェクト（特にWMIプロバイダやFSO）は、スコープを抜けるまでメモリ上に居座り続ける。
特にループ内で毎度 `GetObject(“winmgmts:…”)` を呼び出すような愚行を犯すと、わずか数千回の処理でメモリリーク（VBScript特有のCOMラッパー起因の肥大化）を引き起こす。
上記のコードでは、オブジェクト変数を明確に `Nothing` 代入し、プロセスのライフサイクルにおけるメモリフットプリントを最小限に抑えている。
③ 起動エラー（Error 80070002）の事前撲滅
`WshShell.Run “C:\Target.pdf”, 1, False` のようなコードを直書きしているシステムは多い。しかし、もしPCの入れ替えやアンインストールによって、関連付けられたプログラムのパスが消失していた場合、スクリプトは容赦なくクラッシュする。
本稿で示した `ExtractExecutablePath` と `CheckFileExists` の組み合わせによる「二重検証（Pre-Flight Check）」を挟むことで、スクリプトはクラッシュする代わりに「安全なエラーログの出力と処理のスキップ」という優雅なフォールバックを実行できるのだ。
—
結言
VBScriptはレガシーな言語と揶揄されることもある。しかし、OSの根幹であるCOMやWMI、レジストリ構造を直接手なずけることができるこの言語は、Windowsインフラストラクチャを管理する者にとって最も純度の高い「スイスアーミーナイフ」である。
AssocとFtypeの挙動を完全に掌握し、スクリプトの実行前に運命（起動結果）を予測・制御すること。それこそが、止まることが許されない業務システムを支えるエンジニアの美学である。
