こんにちは！ VBScriptの世界へようこそ。
業務自動化の現場で、黒い画面（コマンドプロンプト）やVBScriptのファイルを実行したとき、突然「このスクリプトの実行はシステム管理者に無効にされています」なんて冷たいエラーメッセージが出て、頭を抱えた経験はありませんか？
「せっかく作った自動化スクリプトなのに、ユーザーのPC環境によってはセキュリティポリシーでガチガチにブロックされて動かない……」
これは、現場のエンジニアが本当によく直面する「あるある」の壁です。
今回は、スクリプトが実行される前に「我が家の環境、いまWSH（Windows Script Host）動かせる状態だっけ？」を自ら診断し、優しく教えてくれるスマートな番人（事前診断ロジック）の作り方を伝授します。
ここをクリアすれば、あなたは単なる「コードを書く人」から、環境の変化にも動じない「ワンランク上の自動化アーキテクト」への第一歩を踏み出せますよ！
—
なぜ、WSHの実行制限を「事前」に判定する必要があるのか？
VBScriptを実行するエンジンであるWSHは、Windowsの標準機能として非常に強力ですが、企業や組織のセキュリティポリシー（グループポリシーなど）によって、「マルウェア対策としてVBScriptの実行を全面禁止にする」という設定がされている場合があります。
通常、この制限に引っかかると、VBScriptファイルをダブルクリックした瞬間にWindowsの冷淡なシステムエラーダイアログがポツンと表示されるだけです。使っている人は「えっ、壊れたの？」とパニックになりますよね。
そこで、スクリプトの先頭でレジストリをチラッと覗き見して、ブロックされていることが分かったら、親切な日本語で「すみません、このPCではセキュリティポリシーにより実行が禁止されています」と教えてから安全に終了する仕組みを作ります。これが今回のテーマです。
—
基礎知識：WSHの生死を握るレジストリ「TrustPolicy」
Windowsには、WSHの動作をコントロールするためのレジストリキーが存在します。
特に重要なのが、以下の場所にある設定です。
- パス: `HKEY_CURRENT_USER\Software\Microsoft\Windows Script Host\Settings\` または
- パス: `HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Script Host\Settings\`
- 値の名前: `Enabled` （または `TrustPolicy`）
この値が「0」に設定されていると、WSHは固く口を閉ざし、VBScriptの実行を拒絶します。
今回は、このレジストリの値をVBScriptの得意技であるWMI（Windows Management Instrumentation）やWScript.Shellを使って安全に読み取り、判定するコードを組み立てていきます。
—
実装コード：レジストリを自己診断するVBScript
それでは、実際のコードを見てみましょう。
以下のコードをメモ帳に貼り付けて、拡張子を `.vbs` （例: `check_wsh.vbs`）として保存してみてください。
‘ ==============================================================================
‘ 【WSH実行制限ポリシー検証スクリプト】
‘ 概要: 実行環境のレジストリを自らスキャンし、WSHが無効化されていないか事前診断します。
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Call Main()
Sub Main()
Dim wshShell, regPath, enabledValue
‘ WScript.Shellオブジェクトの生成（Windows操作の基本中の基本！）
Set wshShell = CreateObject(“WScript.Shell”)
‘ レジストリのパスを設定（ユーザーごとの設定領域をターゲットにします）
‘ ※環境によっては HKLM 側も見る必要がありますが、まずは基本の HKCU をチェック
regPath = “HKCU\Software\Microsoft\Windows Script Host\Settings\Enabled”
On Error Resume Next
‘ レジストリから値を取得を試みる
enabledValue = wshShell.RegRead(regPath)
If Err.Number <> 0 Then
‘ エラーが発生した場合（レジストリキー自体が存在しない場合など）
‘ デフォルトではWSHは有効（Enabledが存在しない＝制限なし）とみなします
On Error GoTo 0
Call RunMyScript()
Exit Sub
End If
On Error GoTo 0
‘ 値が「0」の場合は無効化されていると判定
If enabledValue = 0 Then
MsgBox “【実行ブロック検知】” & vbCrLf & _
“このPCのセキュリティポリシーにより、VBScript (WSH) の実行が制限されています。” & vbCrLf & _
“システム管理者にお問い合わせください。”, _
vbCritical, “WSH事前自動診断ツール”
‘ 安全に終了
WScript.Quit
Else
‘ 正常に実行可能な場合
Call RunMyScript()
End If
‘ オブジェクトの解放（メモリ管理の作法として非常に重要です）
Set wshShell = Nothing
End Sub
‘ ——————————————————————————
‘ 本来実行したいメインの処理をここに記述します
‘ ——————————————————————————
Sub RunMyScript()
MsgBox “診断OK！WSHは正常に稼働できる状態です。” & vbCrLf & _
“ここから先の業務自動化処理を実行します。”, _
vbInformation, “VBScript 実行環境正常”
‘ — ここに実際の自動化コードを書きます —
‘ 例: WScript.Echo “Hello, Automation World!”
End Sub
—
コードのポイント解説：ここが分かればVBScriptは怖くない！
1. `Option Explicit` のお約束
- スクリプトの最上部にこれを書くことで、変数の宣言忘れ（スペルミスなどによるバグ）を強制的に防ぎます。プロの現場では必須の作法です。
2. `WScript.Shell` によるレジストリ読み取り
- `wshShell.RegRead(regPath)` を使って、OSの心臓部であるレジストリを安全に覗き見しています。
3. 「エラーを恐れない」 `On Error Resume Next`
- レジストリのキーが存在しない環境で `RegRead` を行うと、VBScriptはガチンコのエラーで停止してしまいます。あえて一時的にエラーを無視（`Resume Next`）させ、キーが無い場合は「デフォルトで有効」とみなす、という防御的プログラミングを行っています。これが実務で使えるコードの秘訣です。
4. 美しく安全な終了 `WScript.Quit`
- 制限がかかっていると分かった時点で、無駄な処理を走らせず、親切なメッセージを出してスパッと終了させます。
—
よくあるエラーと対策（トラブルシューティング）
- 「レジストリの読み取りに失敗しました」というエラーが出る場合
- 権限不足の可能性があります。通常、`HKEY_CURRENT_USER (HKCU)` なら一般ユーザー権限でも読み取れますが、セキュリティソフトがWSHからのレジストリ参照をフックしている場合があります。その際はエラーハンドリング（`Err.Number` の検知）がうまく機能しているか確認してください。
- ダブルクリックしても何も起きない場合
- まさに今回のテーマである「WSH自体が無効化されている」状態です。このスクリプトを仕込んでおけば、エラーダイアログの代わりに先ほどの親切なメッセージボックスが表示されるようになります。
—
おわりに：ここをクリアすれば、あなたはもう初心者卒業！
今回は、VBScriptの実行環境そのものを自分で診断するという、少しマニアックで実用的なアプローチをご紹介しました。
「動くかどうかわからない環境で、とりあえず動かして爆発する」のを待つのではなく、「実行前に環境を優しく診断し、ダメなら丁寧に教える」。この配慮ができるだけで、あなたが書く自動化ツールの品質は劇的に向上します。
ここをクリアできれば、VBScriptの基礎、エラーハンドリング、そしてOS制御の基本はバッチリです！ぜひ日々の業務自動化に役立ててくださいね。それでは、次回の高度な自動化テクニックでお会いしましょう！
