皆さん、こんにちは！
業務自動化の旅路へようこそ。私は皆さんの知的なガイド、VBScript（Visual Basic Scripting Edition）の深淵を知る者です。今日から皆さんは、単なるマクロの記録を卒業し、Windowsの心臓部に直接語りかける力を手に入れることになります。
特にプログラミング初学者の方、あるいは「もっとWindowsを自分の意のままに動かしたい」と願う皆さんにとって、VBScriptは最高の相棒となるでしょう。そして、今日皆さんに伝授するテーマは、日々のPC運用で誰もが一度は直面するであろう、しかし安易な手出しは危険を伴う「ユーザープロファイルの安全な管理」です。
【ユーザープロファイル削除チェック】WMI Win32_UserProfile の Loaded プロパティを判定した安全なプロファイル管理
皆さんのPC、特に共有PCや長年使っているPCのディスク容量、気になりませんか？ 「なぜかCドライブがパンパンだ…」その原因の一つに、もう使われていないけれどPCに残ってしまっている、古いユーザープロファイルの存在があります。
ユーザープロファイルとは、ユーザー一人ひとりの設定やドキュメント、デスクトップなどが格納された個人専用の作業環境のこと。まるで、それぞれのユーザーが自分だけの部屋を持っているようなものです。
しかし、不要なプロファイルを安易に削除してしまうと、大変なことになります。もし、現在ログオン中のユーザーのプロファイルを誤って削除してしまったら？ そう、システムは不安定になり、最悪の場合PCが起動不能に陥る可能性すらあります。これは、住人がいる部屋をいきなり取り壊してしまうようなものですから、当然ですよね。
そこで登場するのが、VBScriptとWindowsの管理情報を司る強力なツール WMI (Windows Management Instrumentation) です！
本記事では、このWMIを使って、現在ログオン中でない（つまり、誰も使っていない「空き部屋」状態の）プロファイルのみを安全に特定する方法を、VBScriptで記述するスクリプトを通して徹底的に解説します。ここをクリアすれば、VBScriptの基本とWindowsシステム管理の本質がバッチリ見えてきますよ。
—
1. VBScript と WSH（Windows Script Host）の基礎を改めて理解する
まずは、VBScriptがどこで、どのように動くのか、その舞台装置を確認しておきましょう。
VBScriptとは？
VBScriptは、Microsoftが開発した軽量なスクリプト言語です。Visual Basicの文法をベースにしており、シンプルながらもWindowsシステムを操作するための強力な能力を秘めています。ウェブページ（古いASPなど）でのサーバーサイドスクリプトや、今日のテーマであるWindows上での自動化スクリプトとして活用されてきました。
WSH（Windows Script Host）とは？
VBScriptそのものは「ただのテキストファイル」です。このテキストファイルに書かれた命令をWindows上で実行するための「実行環境」がWSH、Windows Script Hostです。WSHは、以下の2つの実行エンジンを持っています。
- `wscript.exe`: 主にGUI（グラフィカルユーザーインターフェース）を持つスクリプトを実行する際に使われます。メッセージボックスを表示したり、ユーザーとのインタラクションがある場合に適しています。
- `cscript.exe`: 主にCUI（キャラクターユーザーインターフェース）、つまりコマンドプロンプト上で実行されるスクリプトに使われます。今回のプロファイル管理のように、バックグラウンドでの処理や、大量の情報をテキストベースで出力する場合に非常に便利です。
最初のVBScriptを動かしてみよう！
では、さっそく簡単なVBScriptを書いて、WSHで実行してみましょう。
1. メモ帳を開きます。
2. 以下のコードをコピー＆ペーストします。
‘ Option Explicit は変数の明示的な宣言を強制します。
‘ これを記述することで、typoによる意図しない変数利用を防ぎ、
‘ スクリプトの堅牢性を高めます。プロの常識として常に使いましょう。
Option Explicit
‘ WScript.Echo は、WSH環境でメッセージを出力するための命令です。
‘ cscript.exe で実行すればコマンドプロンプトに、
‘ wscript.exe で実行すればメッセージボックスとして表示されます。
WScript.Echo “皆さん、こんにちは！VBScriptの世界へようこそ！”
Dim strMessage ‘ 変数宣言
strMessage = “これが私の最初のVBScriptです！”
WScript.Echo strMessage
3. ファイルを任意の場所に保存します。ファイル名は例えば `myfirstscript.vbs` としましょう。拡張子は必ず `.vbs` にしてください。
4. コマンドプロンプト（またはPowerShell）を開きます。
5. 保存したディレクトリに移動し、以下のコマンドを実行します。
cscript myfirstscript.vbs
すると、コマンドプロンプトにメッセージが表示されるはずです。
もし、`myfirstscript.vbs` を直接ダブルクリックすると、`wscript.exe` で実行され、メッセージボックスが表示されます。
どうですか？ 自分のPCが、皆さんの書いたコードで応答する瞬間の、あのゾクゾクする感覚！ これが自動化の第一歩です。
ここで一つ、チーフアーキテクトからのアドバイスです。コードの冒頭にある `Option Explicit` は、必ず記述する習慣をつけましょう。これは変数の誤使用を防ぎ、後のデバッグ作業を格段に楽にする、プロフェッショナルなVBScriptの書き方です。
2. WMI (Windows Management Instrumentation) とは？
さて、本題の「プロファイル管理」に移りましょう。Windowsには、システムのあらゆる情報（ハードウェア、ソフトウェア、サービス、ユーザーなど）を管理するための強力な仕組みがあります。それが WMI (Windows Management Instrumentation) です。
WMIは、Windows OSが持つ様々な管理情報を「オブジェクト」として提供し、スクリプトやアプリケーションから統一的な方法でアクセス・操作できるようにする技術です。例えるなら、Windowsのシステム情報を一元的に管理する「巨大なデータベース」のようなものだと考えてください。
WMIへの接続：`GetObject(“winmgmts:\.\root\cimv2”)` の意味
VBScriptからWMIにアクセスするには、まずWMIサービスへの接続が必要です。
そのための呪文が、`GetObject(“winmgmts:\\.\root\cimv2”)` です。
- `GetObject()`: 既存のオブジェクトへの参照を取得するVBScriptの関数です。
- `”winmgmts:”`: WMIサービスへの接続を示すプロバイダー名です。
- `”\\.”`: ローカルコンピューター（自分自身）を指します。リモートPCの場合は `\\コンピューター名` となります。
- `”root\cimv2″`: WMIの名前空間です。WMIの管理情報は、この名前空間という階層構造で整理されています。`root\cimv2` は、最も一般的なシステム管理情報が格納されている場所です。
この一行で、皆さんのVBScriptはWindowsの奥深くにアクセスするパスを手に入れるわけです。この接続はスクリプトの実行中に何度も行うべきではありません。一度確立したら、そのオブジェクトを再利用するのが、パフォーマンスとリソース管理の観点から見て賢いやり方です。オブジェクトのライフサイクルを意識すること、これはプロの領域への第一歩ですよ。
3. `Win32_UserProfile` クラスを掌握する
WMIの「データベース」には、様々な情報が「クラス」として定義されています。今回の目的であるユーザープロファイルに関する情報は、`Win32_UserProfile` というクラスに格納されています。
このクラスが持つプロパティ（属性）を見ることで、各ユーザープロファイルの状態を詳細に把握できます。特に注目すべきは以下のプロパティです。
- `SID` (Security Identifier): プロファイルに紐づくユーザーの一意な識別子。Windowsが内部的にユーザーを識別するために使います。
- `LocalPath`: プロファイルが実際にPCのどこに保存されているかを示すパス（例: `C:\Users\username`）。
- `Loaded`: これこそが今回の主役です！ プロファイルが現在、システムにロードされているかどうか（つまり、ユーザーがログオン中かどうか）を示すブール値（True/False）。`True` ならログオン中、`False` ならログオンしていません。
- `Special`: システムによって作成された特殊なプロファイルかどうか（例: Default User, Public）。
- `RoamingConfigured`: ローミングプロファイルとして構成されているかどうか。
これらのプロパティを組み合わせることで、私たちは安全なプロファイル管理を実現できるのです。
—
4. 安全なプロファイル判定スクリプトの実装
さあ、いよいよ実践です。VBScriptとWMIの力を借りて、PC上のユーザープロファイル情報を取得し、ログオン中でないプロファイルを特定するスクリプトを書いていきましょう。
ステップ1: すべてのユーザープロファイル情報を取得する
まずは、PC上のすべてのユーザープロファイル情報を取得し、それぞれのプロパティを表示する基本的なスクリプトです。
‘ user_profile_checker_basic.vbs
Option Explicit
‘ WMIサービスへの接続オブジェクトを宣言
Dim objWMIService
‘ Win32_UserProfile クラスのインスタンスコレクションを宣言
Dim colProfiles
‘ 個々の Win32_UserProfile オブジェクトを宣言
Dim objProfile
‘ SIDからユーザー名を取得するためのオブジェクトを宣言
Dim colAccounts, objAccount
‘ ユーザー名を格納する変数
Dim strUserName
‘ WMIサービスへの接続を確立します。
‘ ローカルコンピューターの cimv2 名前空間に接続します。
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ Win32_UserProfile クラスからすべてのインスタンス（プロファイル）を取得します。
‘ SELECT FROM Win32_UserProfile は、Win32_UserProfile クラスの
‘ 全プロパティを持つすべてのオブジェクトを取得するWQL（WMI Query Language）クエリです。
Set colProfiles = objWMIService.ExecQuery(“SELECT FROM Win32_UserProfile”)
WScript.Echo “— 全ユーザープロファイル情報 —”
WScript.Echo “———————————-”
‘ 取得したプロファイルコレクションをループ処理します。
For Each objProfile In colProfiles
‘ SIDからユーザー名を取得する関数を呼び出します。
‘ これは後述の「GetUserNameFromSID」関数で実装します。
strUserName = GetUserNameFromSID(objProfile.SID, objWMIService)
WScript.Echo “ユーザー名 : ” & strUserName & ” (SID: ” & objProfile.SID & “)”
WScript.Echo “パス : ” & objProfile.LocalPath
WScript.Echo “ロード中 : ” & objProfile.Loaded ‘ Trueならログオン中、Falseならログオン中でない
WScript.Echo “特別プロファイル: ” & objProfile.Special ‘ システムプロファイルか否か
WScript.Echo “———————————-”
Next
‘ オブジェクトの解放は非常に重要です。
‘ これにより、メモリリークを防ぎ、システムリソースを適切に管理します。
Set objProfile = Nothing
Set colProfiles = Nothing
Set objWMIService = Nothing
Set colAccounts = Nothing
Set objAccount = Nothing
WScript.Echo “スクリプト実行完了。”
‘ — SIDからユーザー名を取得するヘルパー関数 —
‘ この関数は、Win32_UserAccount クラスを使ってSIDからユーザー名を取得します。
Function GetUserNameFromSID(strSID, objWMIService)
Dim colAccountsLocal, objAccountLocal ‘ 関数内での衝突を避けるため別名
Dim strUserNameResult
strUserNameResult = “不明なユーザー” ‘ デフォルト値
‘ Win32_UserAccount クラスを使って、指定されたSIDを持つユーザーアカウントを検索します。
Set colAccountsLocal = objWMIService.ExecQuery(“SELECT Name FROM Win32_UserAccount WHERE SID='” & strSID & “‘”)
‘ 結果が1つ以上あれば、そのユーザー名を取得します。
If colAccountsLocal.Count > 0 Then
For Each objAccountLocal In colAccountsLocal
strUserNameResult = objAccountLocal.Name
Exit For ‘ 最初のユーザー名で十分なのでループを抜ける
Next
End If
‘ オブジェクト解放
Set colAccountsLocal = Nothing
‘ 取得したユーザー名を関数の戻り値とします。
GetUserNameFromSID = strUserNameResult
End Function
このスクリプトを `user_profile_checker_basic.vbs` として保存し、`cscript user_profile_checker_basic.vbs` で実行してみてください。PC上のすべてのユーザープロファイルの情報が一覧表示されるはずです。
ここでポイントとなるのが、`GetUserNameFromSID` 関数です。`Win32_UserProfile` クラスには直接ユーザー名を持つプロパティがないため、`SID` をキーにして `Win32_UserAccount` クラスからユーザー名を取得しています。これはWMIを使いこなす上で非常に便利なテクニックです。
ステップ2: ログオン中でないプロファイルのみを抽出する
次に、いよいよ本命の「Loaded = False」のプロファイル、つまりログオン中でないプロファイルのみを抽出するロジックを追加します。
‘ user_profile_checker_loaded_false.vbs
Option Explicit
‘ 変数宣言（ステップ1と同じ）
Dim objWMIService, colProfiles, objProfile
Dim colAccounts, objAccount, strUserName
‘ WMIサービスへの接続を確立（ステップ1と同じ）
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ Win32_UserProfile クラスからすべてのインスタンスを取得（ステップ1と同じ）
Set colProfiles = objWMIService.ExecQuery(“SELECT FROM Win32_UserProfile”)
WScript.Echo “— ログオン中でないユーザープロファイル（削除候補）—”
WScript.Echo “——————————————————–”
‘ 取得したプロファイルコレクションをループ処理
For Each objProfile In colProfiles
‘ ここが重要！ Loaded プロパティが False の場合のみ処理を実行します。
‘ これにより、現在ログオン中のプロファイルを誤って対象とすることを防ぎます。
If Not objProfile.Loaded Then
strUserName = GetUserNameFromSID(objProfile.SID, objWMIService)
WScript.Echo “ユーザー名 : ” & strUserName & ” (SID: ” & objProfile.SID & “)”
WScript.Echo “パス : ” & objProfile.LocalPath
WScript.Echo “ロード中 : ” & objProfile.Loaded ‘ 必ず False と表示されるはず
WScript.Echo “特別プロファイル: ” & objProfile.Special
WScript.Echo “——————————————————–”
End If
Next
‘ オブジェクトの解放（ステップ1と同じ）
Set objProfile = Nothing
Set colProfiles = Nothing
Set objWMIService = Nothing
Set colAccounts = Nothing
Set objAccount = Nothing
WScript.Echo “スクリプト実行完了。上記が削除検討対象のプロファイルです。”
‘ — SIDからユーザー名を取得するヘルパー関数 —
‘ （内容はステップ1と同じなので省略。上記スクリプトに含めてください。）
Function GetUserNameFromSID(strSID, objWMIService)
Dim colAccountsLocal, objAccountLocal
Dim strUserNameResult
strUserNameResult = “不明なユーザー”
Set colAccountsLocal = objWMIService.ExecQuery(“SELECT Name FROM Win32_UserAccount WHERE SID='” & strSID & “‘”)
If colAccountsLocal.Count > 0 Then
For Each objAccountLocal In colAccountsLocal
strUserNameResult = objAccountLocal.Name
Exit For
Next
End If
Set colAccountsLocal = Nothing
GetUserNameFromSID = strUserNameResult
End Function
このスクリプトを実行すると、現在ログオン中でないユーザープロファイルの情報だけが抽出されて表示されます。これが、皆さんが安全に削除を検討できるプロファイル群です。
5. パフォーマンスとリソース管理の視点：オブジェクトのライフサイクル
VBScriptに限らず、オブジェクト指向プログラミングにおいて非常に重要な概念が「オブジェクトのライフサイクル管理」です。
皆さんはスクリプトの最後に `Set obj = Nothing` という行が何度も出てくることに気づいたでしょうか？ これは、VBScriptが確保したオブジェクトへの参照を明示的に解放し、関連するシステムリソース（メモリなど）をOSに返すための指示です。
- なぜ重要なのか？
- メモリリークの防止: オブジェクトを解放しないと、そのオブジェクトが確保していたメモリがいつまでもシステムに居座り続け、メモリリークの原因となります。これはスクリプトの実行を繰り返すうちに、システムの動作が遅くなったり、不安定になったりする原因となります。
- リソース効率の向上: 特にWMIのようなシステムリソースを消費するオブジェクトは、使い終わったら速やかに解放することで、他のプロセスがそのリソースを利用できるようになります。
今回のスクリプトのように、シンプルなものであれば大きな問題にならないこともありますが、より大規模なスクリプトや、長時間稼働するスクリプトでは、この `Set obj = Nothing` の習慣がシステム全体の安定性とパフォーマンスを大きく左右します。プロフェッショナルは、常に「使い終わった道具はきちんと片付ける」意識を持っているものです。
6. 運用上の注意点と未来へのヒント
このスクリプトは「判定」であり「削除」ではない
今回作成したスクリプトは、あくまで「削除しても安全そうなプロファイルを特定する」ためのものです。実際にプロファイルを削除する機能は含まれていません。
`Win32_UserProfile` クラスには `Delete()` メソッドが存在しますが、これを使用する際には極めて慎重であるべきです。
1. バックアップ: 重要なデータが含まれている可能性があるため、削除前に必ずプロファイルのバックアップを取るべきです。
2. 管理者権限: プロファイルの削除には管理者権限が必要です。このスクリプトを管理者として実行する必要があります。
3. システムプロファイル: `objProfile.Special` が `True` のプロファイル（例: `Default User` や `Public`）は、Windowsの動作に必要な場合がありますので、絶対に削除しないでください。
VBScriptからPowerShellへ
VBScriptは今でも多くの現場で現役ですが、Microsoftはより強力で多機能なスクリプト言語として PowerShell を推奨しています。PowerShellもWMIを扱うことができ、よりモダンな構文と豊富なコマンドレット（特定のタスクを実行するコマンド）を提供します。
今回学んだVBScriptとWMIの知識は、PowerShellを学ぶ上での強力な基礎となります。オブジェクト指向の考え方、API（WMIもその一種）を叩いてシステムを操作する感覚は、どの言語でも共通して活かせる本質的なスキルです。
—
まとめ
今日の講義、いかがでしたか？
皆さんはVBScriptの基本的な書き方から、Windowsの管理情報に深く切り込むWMIの活用方法、そして安全なユーザープロファイル管理のロジックまで、一気に習得しました。
- `Option Explicit` で堅牢なスクリプトを書く習慣。
- `cscript.exe` でコマンドラインからスクリプトを実行する基本。
- `GetObject(“winmgmts:\\.\root\cimv2”)` でWMIサービスに接続する呪文。
- `Win32_UserProfile` クラスからプロファイル情報を取得し、特に `Loaded` プロパティでログオン状態を判定する技術。
- `SID` から `Win32_UserAccount` クラスを使ってユーザー名を逆引きする応用力。
- そして何よりも、`Set obj = Nothing` でオブジェクトを解放し、システムリソースを適切に管理する「プロの意識」。
これらをマスターした皆さんは、もう単なる「マクロ記録ユーザー」ではありません。Windowsの内部構造を理解し、自分の意図でシステムを動かすことができる「自動化エンジニア」の卵です。
今回の知識を足がかりに、さらに多くのWindows管理タスクに挑戦してみてください。VBScriptの可能性は無限大です。
さあ、皆さんの創造力と、今手に入れた知識で、PCの自動化を次のレベルへと引き上げていきましょう！ 応援していますよ！
