VBScriptを掌握せよ：OSの言語を自動判別し「世界」と対話するスクリプト設計術
こんにちは。現場の最前線で自動化のアーキテクチャを設計しているエンジニアです。
VBScriptを単なる「古い自動化ツール」だと思っていませんか？ 確かに枯れた技術ですが、OSの深淵を叩けるその軽快さは、現代の複雑なフレームワークにも引けを取りません。
今日は、グローバルな開発現場で避けては通れない「OSの多言語化対応（i18n）」というテーマに切り込みます。あなたのスクリプトが、日本語環境でも英語環境でも、文脈に応じて賢くメッセージを切り替えられるようになれば、それはもう「ただのスクリプト」から「堅牢なシステム」への第一歩です。
—
1. なぜ「LCID」を知る必要があるのか？
VBScriptでメッセージを表示する際、ハードコーディングされた日本語をそのまま出すと、海外拠点の人たちは文字化けした「謎の暗号」に頭を抱えることになります。
そこで登場するのがLCID（Locale ID）です。これはOSが「今、ユーザーがどの言語・地域でOSを使っているか」を識別するための数字のIDです。
- 1041 (0x0411)：日本語 (Japan)
- 1033 (0x0409)：英語 (United States)
これらをプログラムで取得し、分岐させるだけで、あなたのツールは世界品質のUIを手に入れます。
—
2. 賢い実装パターン：OS言語の動的取得
WMI（Windows Management Instrumentation）を利用すれば、OSの言語設定を瞬時に特定できます。以下のコードは、その決定版です。
‘ — i18n対応の核となる関数 —
Function GetOSLanguage()
Dim objWMIService, colOS, objOS
‘ WMI接続：ローカルマシンのOS情報を取得
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colOS = objWMIService.ExecQuery(“Select from Win32_OperatingSystem”)
For Each objOS in colOS
‘ Localeプロパティには16進数のLCIDが文字列で入っている
‘ これを10進数に変換して返す
GetOSLanguage = CLng(“&H” & objOS.Locale)
Next
End Function
‘ — 利用シーン：言語に応じてメッセージを出し分ける —
Dim currentLCID, msg
currentLCID = GetOSLanguage()
Select Case currentLCID
Case 1041 ‘ 日本語の場合
msg = “処理を開始します。”
Case 1033 ‘ 英語の場合
msg = “Starting the process.”
Case Else ‘ その他（デフォルトは英語）
msg = “Starting the process.”
End Select
MsgBox msg
このコードの「設計の肝」
- CLng(“&H” & …)：WMIが返すのは16進数文字列です。これを数値（Long型）にキャストすることで、`Select Case` での高速な比較が可能になります。
- 拡張性：`Case` 文を増やすだけで、フランス語（1036）やドイツ語（1031）にも即座に対応可能です。
—
3. 陥りやすいエラーと回避策
初心者がこの実装で躓きやすいポイントを、伝説的なエンジニアの視点で教えましょう。
① 「WMIが遅い」問題
WMIへの接続（`GetObject`）は、実はコストが高い処理です。ループの中で何度も呼ぶと、スクリプトのパフォーマンスは目に見えて低下します。必ず関数の冒頭で一度だけ取得し、変数にキャッシュしてください。
② 言語IDの罠
`Win32_OperatingSystem.Locale` は「OSのインストール言語」を指します。もし「ユーザーがOfficeの設定で言語を変えている場合」などは別のプロパティ（`Win32_UserAccount`等）を追う必要があります。まずはOSの標準言語から攻めるのが基本です。
—
4. プロの設計手法：辞書オブジェクトの活用
もしメッセージ数が100個を超えたら、`Select Case` だらけのコードはスパゲッティになります。そんな時は「Dictionaryオブジェクト」を使いましょう。
Dim dict
Set dict = CreateObject(“Scripting.Dictionary”)
‘ 言語ごとに辞書を作る
dict.Add “1041_Welcome”, “ようこそ”
dict.Add “1033_Welcome”, “Welcome”
‘ 呼び出し時はキーを組み立てる
Dim key
key = currentLCID & “_Welcome”
MsgBox dict.Item(key)
こうすることで、ロジックとメッセージ（データ）を分離でき、保守性が劇的に向上します。
—
最後に：自動化の真髄
VBScriptを使いこなすということは、WindowsというOSの骨格を理解することと同義です。今回紹介した「言語判別」は、自動化スクリプトを「使い捨ての道具」から「プロフェッショナルなツール」へ昇華させるための鍵です。
「ここをクリアすれば、基本はバッチリ」と自信を持ってください。次は、レジストリを直接操作して、より深いカスタマイズに挑んでみるのも面白いですよ。
あなたの書いたスクリプトが、国境を超えて誰かの業務を救うことを願っています。頑張ってくださいね！
