VBScriptの禁じ手を超えて：`htmlfile`を介したクリップボード制御の真髄
VBScriptは「枯れた技術」と揶揄されることもある。だが、WSH（Windows Script Host）環境において、OSの深部に触れるための「鍵」を握っているのは、いつだって我々のようなアーキテクトだ。
通常、VBScript単体ではクリップボードを直接叩くことはできない。多くのエンジニアがここで諦め、外部のCLIツール（`clip.exe`など）を呼び出すという、プロセスのオーバーヘッドを増大させる非効率な実装に逃げる。
だが、真のプロフェッショナルは`htmlfile`（MSHTML）オブジェクトを隠しインターフェースとして再利用する。今回は、モダンな環境でも通用する、極めて堅牢かつ高速なクリップボード連携の設計を伝授する。
—
なぜ `htmlfile` なのか？
VBScriptにおいてクリップボードにアクセスする最も軽量な手段は、IEのレンダリングエンジンであるMSHTMLをCOMオブジェクトとして呼び出すことだ。
なぜこれを選ぶのか。理由は明白だ。
1. プロセス分離が不要: 外部実行ファイル（exe）を都度起動するオーバーヘッドを排除できる。
2. メモリ効率: `CreateObject(“htmlfile”)` は軽量であり、スクリプト終了時に正しく開放すればメモリリークのリスクは極めて低い。
3. 互換性: Windows 10/11環境下でも、このCOMインターフェースは引き続き有効な資産として機能する。
—
プロダクション品質のコード実装
以下に、クリップボードの読み書きをラップした堅牢なスクリプトを示す。単なるコピペコードではない。エラーハンドリングとオブジェクトのライフサイクル管理を意識した、実務レベルの実装だ。
‘ クリップボード操作クラス的な関数群
‘ 実務ではこの関数をライブラリとして分離し、Includeして利用する設計が望ましい
‘ — クリップボードへの書き込み —
Sub SetClipboardText(ByVal text)
Dim objHTML
Set objHTML = CreateObject(“htmlfile”)
‘ parentWindow.clipboardData オブジェクトにアクセス
‘ 成功すればTrueを返すような設計にすべきだが、シンプル化のため直書き
On Error Resume Next
objHTML.parentWindow.clipboardData.setData “text”, text
If Err.Number <> 0 Then
WScript.Echo “クリップボード書き込みエラー: ” & Err.Description
End If
On Error GoTo 0
‘ オブジェクトの破棄（メモリリークを防ぐための鉄則）
Set objHTML = Nothing
End Sub
‘ — クリップボードからの読み込み —
Function GetClipboardText()
Dim objHTML
Set objHTML = CreateObject(“htmlfile”)
On Error Resume Next
‘ setData と同様に getData を使用
GetClipboardText = objHTML.parentWindow.clipboardData.getData(“text”)
‘ 読み込み失敗時のハンドリング
If Err.Number <> 0 Then
GetClipboardText = “”
End If
On Error GoTo 0
Set objHTML = Nothing
End Function
‘ — 実装例 —
Dim clipText
clipText = GetClipboardText()
WScript.Echo “現在のクリップボード内容: ” & clipText
Call SetClipboardText(“自動化により出力されたデータ: ” & Now)
—
現場で死なないための設計上の注意点
この実装を「動けばいいや」で終わらせてはいけない。大規模な自動化システムで運用する場合、以下の3点を必ず遵守せよ。
1. オブジェクトライフサイクルの厳守
`Set objHTML = Nothing` を忘れるな。スクリプトが連続実行される環境（特にタスクスケジューラでの多重起動）では、小さなリークがシステム全体を不安定にする。スコープが終了する前に必ず明示的に破棄せよ。
2. データ型のバリデーション
`htmlfile` を介したデータ取得は、クリップボードが空の時や、画像などのテキスト以外のデータが入っている時に予期せぬ戻り値を返すことがある。`If IsNull(clipText) Then` や `If IsEmpty(clipText) Then` を挟み、nullチェックを行うのがプロの作法だ。
3. 排他制御の意識
クリップボードは「共有リソース」だ。他のアプリケーションがクリップボードをロックしている場合、`setData` は失敗する。実務では、エラーが発生した際に0.5秒程度のウェイトを入れて再試行する（リトライアルゴリズム）を実装することが、堅牢なプロダクションコードへの分岐点となる。
—
最後に：ツールを使いこなす側になれ
VBScriptは、今やレガシーと呼ばれることもある。だが、OSに深く根を張り、追加のインストールを一切必要とせずに即座に業務を自動化できるこの「小さな巨人」を、我々エンジニアが手放す理由はない。
今回紹介した `htmlfile` を介したハックは、単なる小手先のテクニックではなく、COMオブジェクトの特性を理解した上での戦略的選択だ。この知見をあなたの自動化ライブラリの核として組み込み、退屈な手作業を次々と絶滅させてほしい。
実装で躓くことがあれば、もう一度オブジェクトの生死に立ち返れ。そこに必ず答えはある。
