こんにちは！VBScriptの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、「自分の手でWindowsの動作を完全にコントロールしたい」と願うあなたを、今日は心から歓迎します。
現場でVBScriptを書いていると、「今このスクリプトを実行しているユーザーは、本当にこの作業をしていい権限を持っているだろうか？」と判定したくなる場面に必ず直面します。特にActive Directory（AD）やローカル環境において、特定のグループに所属しているユーザーだけに入口を開放したい、そんな要件は日常茶飯事です。
今回は、「WinNTプロバイダ」というWSH（Windows Script Host）の隠し持った強力な武器を使って、ログインユーザーの所属グループを美しく、かつ確実に動的チェックする方法を伝授しましょう。ここをクリアすれば、あなたのVBScriptのスキルは一気にプロの領域へ到達します。
—
1. なぜ「WinNTプロバイダ」なのか？（基本概念の理解）
WindowsのユーザーやグループをVBScriptから操作する際、私たちはADSI（Active Directory Service Interfaces）という仕組みを使います。ここで登場するのがプロバイダ（接続の窓口）です。
ADSIには主に2つのプロバイダがあります。
1. LDAPプロバイダ: Active Directoryの巨大なツリー構造を網羅的に検索する、いわば「大型客船」。組織全体や広大なドメインを相手にする時に使います。
2. WinNTプロバイダ: マシンやドメインをローカルの視点で高速に捉える、いわば「機動性に優れた小型ボート」。
「今のこのパソコンで、このユーザーが何のグループに所属しているか」をパッと瞬時に調べたい場合、重厚長大なお船（LDAP）を出す必要はありません。WinNTプロバイダを使えば、ネットワークの向こう側やローカルOSに直接、軽快に問い合わせを行うことができるのです。
—
2. 【実践】ドメインユーザーの所属グループ動的チェックコード
それでは、現場でそのままコピペして使える実用的なスクリプトを公開します。
このコードは、現在の実行ユーザーの「ドメイン名」「ユーザー名」を自動取得し、指定したグループ（例: `Domain Admins` や `BuisinessApp-Users` など）に所属しているかを判定するものです。
メモ帳を開き、以下のコードを `check_auth.vbs` という名前で保存して、実務の現場を想像しながら読んでみてください。
‘ ==============================================================================
‘ スクリプト名: check_auth.vbs
‘ 概要: WinNTプロバイダを使用した、実行ユーザーの所属グループ動的判定
‘ 著者の魂のコメント: オブジェクトの解放とエラーハンドリングを制する者がVBScriptを制す
‘ ==============================================================================
Option Explicit
Dim wshNetwork, objUser, strDomain, strUser, targetGroup
Dim isMember
‘ 1. 実行ユーザーのドメイン名とアカウント名を取得する
Set wshNetwork = WScript.CreateObject(“WScript.Network”)
strDomain = wshNetwork.UserDomain
strUser = wshNetwork.UserName
‘ 画面確認用のポップアップ（本番運用ではコメントアウト推奨）
WScript.Echo “【実行者確認】” & vbCrLf & _
“ドメイン: ” & strDomain & vbCrLf & _
“ユーザー: ” & strUser
‘ 2. チェックしたいターゲットグループ名を定義
‘ ※環境に合わせて書き換えてください（例: “Administrators” ならローカル管理者）
targetGroup = “Domain Admins”
‘ 3. WinNTプロバイダを経由してユーザーオブジェクトをバインド（取得）する
‘ 構文: WinNT://ドメイン名/ユーザー名,user
On Error Resume Next ‘ ネットワーク切断や存在しない場合の異常終了を防ぐ防壁
Set objUser = GetObject(“WinNT://” & strDomain & “/” & strUser & “,user”)
If Err.Number <> 0 Then
WScript.Echo “致命的エラー: ユーザー情報の取得に失敗しました。” & vbCrLf & _
“エラー詳細: ” & Err.Description
Call CleanupAndExit(wshNetwork, objUser, Nothing)
WScript.Quit(1)
End If
On Error GoTo 0 ‘ 防壁を解除
‘ 4. 所属グループの判定（IsMemberメソッドの神髄）
‘ WinNTプロバイダのユーザーオブジェクトは “IsMember” という魔法のメソッドを持っています。
isMember = objUser.IsMember(“WinNT://” & strDomain & “/” & targetGroup)
‘ 5. 結果に応じた処理の分岐
If isMember Then
WScript.Echo “【認証成功】” & vbCrLf & _
strUser & ” さんは [” & targetGroup & “J グループのメンバーです。” & vbCrLf & _
“業務システムへのアクセスを許可します。”
‘ ここに権限が必要なメイン処理（ファイル操作やアプリ起動など）を書く
Else
WScript.Echo “【アクセス拒否】” & vbCrLf & _
strUser & ” さんは [” & targetGroup & “] グループのメンバーではありません。” & vbCrLf & _
“権限が不足しているため、処理を中断します。”
End If
‘ 6. お片付け（メモリリークを防ぐ大人の作法）
Call CleanupAndExit(wshNetwork, objUser, Nothing)
‘ ==============================================================================
‘ サブルーチン: オブジェクトの確実な解放とメモリ管理
‘ ==============================================================================
Sub CleanupAndExit(ByRef netObj, ByRef userObj, ByRef dummyObj)
If Not IsEmpty(netObj) Then Set netObj = Nothing
If Not IsEmpty(userObj) Then Set userObj = Nothing
End Sub
—
3. コードの急所を徹底解説！初心者がハマる罠と対策
ここからは、なぜこのコードが美しく、そして堅牢なのか、プロの視点でポイントを3つに絞って解説します。
① `Option Explicit` を絶対に忘れないこと
冒頭にある `Option Explicit`。これこそが、デバッグ地獄からあなたを救うお守りです。
VBScriptはデフォルトでは、変数宣言（`Dim`）をしなくても勝手に変数が作られてしまいます。もしあなたが `strDomain` と書くべきところをうっかり `strDmain` とタイポ（誤字）しても、エラーを出さずに空っぽのまま処理が進んでしまうのです。
`Option Explicit` を宣言しておけば、未宣言の変数を使った瞬間にエラーで止めてくれます。プログラマの第一歩は、この行を書くことから始まります。
② 魔法のメソッド `IsMember` の使い方
コードの核心はここです。
objUser.IsMember(“WinNT://ドメイン名/グループ名”)
WinNTプロバイダで取得したユーザーオブジェクトは、裏側でWindowsのセキュリティサブシステムと通信し、指定されたグループに属しているか（直属であれ、ネストされたグループ経由であれ）を `True` または `False` で返してくれます。
わざわざループを回して所属グループを1つずつ総当たりで比較する……なんていう恥ずかしいコードを書く必要は一切ありません。ADSIの標準機能を正しく使うことが、パフォーマンス（処理速度）を保つ秘訣です。
③ `On Error Resume Next` との正しい付き合い方
VBScriptで最も嫌われるのが、ネットワークの瞬断や、オフライン環境でスクリプトが突然「パカーン」と赤いエラー画面を出して強制終了することです。
これを防ぐために `On Error Resume Next`（エラーが起きてもとりあえず次の行へ進め）を挟んでいますが、これだけではプロ失格です。エラーを放置すると、次の行で大惨事になります。
必ず `If Err.Number <> 0 Then` でエラーを捕まえ、メッセージを出して安全に終了（あるいはリトライ）させるという「防波堤」をセットで構築してください。
—
最後に：ここをクリアすれば、あなたはもう初心者ではない
お疲れ様でした！
今回学んだ「WinNTプロバイダを使った所属グループの動的チェック」は、社内ヘルプデスクの自動化ツール、キッティングスクリプト、アクセス制御付きの業務ランチャーなど、あらゆる現場で応用できる強力なパターンです。
「画面の向こうにいるユーザーが誰で、何が許可されているのか」をスクリプト自身が理解し、賢く振る舞う。これこそが、WSHとVBScriptが持つ本来の美しさであり、楽しさです。
このコードをベースに、あなたの職場の環境に合わせてグループ名や処理を変えてみてください。「動いた！」という感動が、あなたのエンジニアとしての血肉になります。ここをクリアしたあなたなら、どんな自動化の壁も必ず乗り越えられますよ。応援しています！
