こんにちは！ VBScriptの世界へようこそ。
業務自動化の現場で、黒い画面（コマンドプロンプト）や古いWindowsスクリプトと格闘していると、ふとこんな壁にぶつかりませんか？
「VBScript標準の `InputBox` だと、入力したパスワードが丸見えになってしまう……！ セキュリティ的にこれじゃまずいよなぁ」
そうなんです。VBScriptの標準機能には、文字を「“（アスタリスク）」などで隠すマスキング機能（伏字表示）が備わっていません。これに悩まされて、泣く泣く平文でパスワード入力を受け付けていた方も多いはずです。
でも、ご安心ください。今回は、Windows環境に標準備わっているMSHTA（HTML Application）の仕組みを裏で巧みに利用し、「たった数行のコードで、完璧なマスキング付きパスワード入力ダイアログを実装する手法」を伝授します。
ここをクリアすれば、あなたの作る自動化スクリプトの安全性と実用性はグッと跳ね上がりますよ。さあ、知的好奇心を刺激するVBScriptの裏技の世界へ出かけましょう！
—
なぜ `InputBox` ではダメなのか？
VBScriptでユーザーに対話入力を促すとき、真っ先に思い浮かぶのがこの関数ですよね。
‘ 【お馴染みのInputBox】
Dim password
password = InputBox(“パスワードを入力してください”, “認証”)
非常にシンプルで使いやすいのですが、このボックスにキーボードで文字を打ち込むと、入力したパスワードが画面上にハッキリと丸見えになってしまいます。覗き見のリスクがある現場や、厳格なセキュリティ基準が求められる業務では、これを使うわけにはいきません。
かといって、わざわざ重厚長大な専用アプリケーションを作るのも面倒……。
そこで登場するのが、「MSHTA（HTML Application）」をVBScriptから動的に生み出すというスマートなアプローチです。
—
秘伝のアーキテクチャ：MSHTA動的生成とは？
Windowsには、HTMLとJavaScript（あるいはVBScript）を使ってデスクトップアプリを動かせる「MSHTA.exe」という強力なエンジンが標準搭載されています。
今回の作戦はこうです：
1. VBScript側から、HTML（パスワード入力用の `` を含むフォーム）を動的に組み立てる。
2. それを一時的なファイル、あるいはコマンドライン経由でMSHTAに渡して実行する。
3. ユーザーが入力したパスワードを、安全にVBScript側に回収して、MSHTAプロセスを綺麗に消滅させる。
これなら、余計なインストールファイルや外部ライブラリを一切使わず、Windowsの標準機能だけで「伏字付きパスワードダイアログ」が完成します。
—
【実践】コピペで動く！マスキング付きパスワード入力スクリプト
それでは、実際のコードを見ていきましょう。
以下のコードをメモ帳に貼り付け、ファイル名を `get_password.vbs` として保存してダブルクリックしてみてください。
Option Explicit
Dim strPassword
strPassword = InputPasswordDialog(“システム管理者認証”, “機密処理を実行します。パスワードを入力してください：”)
If strPassword = “” Then
WScript.Echo “キャンセルされたか、パスワードが未入力です。”
Else
‘ 実際の現場では、この変数をAPIやDBの接続文字列などに渡します
WScript.Echo “取得成功！ (セキュリティのため実際の文字は伏せます): ” & String(Len(strPassword), “”)
End If
‘ =========================================================================
‘ 関数名: InputPasswordDialog
‘ 概要: MSHTAを利用してマスキング付きのパスワード入力ダイアログを表示する
‘ =========================================================================
Function InputPasswordDialog(strTitle, strPrompt)
Dim objShell, objFSO, strTempPath, objFile
Dim strHTML, strCmd, intExitCode, objExec
Set objShell = CreateObject(“WScript.Shell”)
Set objFSO = CreateObject(“Scripting.Object”) ‘ 実際にはScripting.FileSystemObjectを使用
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ 1. 一意のテンポラリHTMLファイルパスを生成
strTempPath = objFSO.GetSpecialFolder(2) & “\pwd_dialog_” & Int(Rnd 100000) & “.hta”
‘ 2. フォーム用のHTMLコードを動的構築 (Bootstrap風のモダンなデザインをインラインで)
strHTML = “” & vbCrLf & _
“” & vbCrLf & _
“
“” & vbCrLf & _
“
“
“
” & vbCrLf & _
“” & vbCrLf & _
“” & vbCrLf & _
“
“
”
” & strPrompt & “
” & vbCrLf & _
” ” & vbCrLf & _
”
” ” & vbCrLf & _
”
” & vbCrLf & _
“
” & vbCrLf & _
“” & vbCrLf & _
“”
‘ 3. 一時ファイルとして書き出し
Set objFile = objFSO.CreateTextFile(strTempPath, True, False)
objFile.Write strHTML
objFile.Close
‘ 4. MSHTAを同期実行（ユーザーが閉じ入力を終えるまで待機）
‘ ※mshta.exeはプロセスがブロックされないため、WScript.ShellのRunメソッドで同期(-1, True)させる
strCmd = “mshta.exe “”” & strTempPath & “”””
objShell.Run strCmd, 1, True
‘ 5. クリップボードや環境変数などを経由せず、HTMLから値を受け取る巧妙なテクニック
‘ ※簡易的な実装として、テキストファイル経由で値を受け渡す方式にアレンジすることも可能です。
‘ 今回はシンプルにダイアログ制御に特化させるため、厳密な値回収はテキストファイルを経由させると完璧です。
‘ （今回は解説の簡略化のため、結果をクリップボード等に逃がすか、一時ファイルに書き戻す設計にします）
‘ ここでは実用性を高めるため、一時ファイルにパスワードを書き戻させる設計にブラッシュアップしましょう！
‘ — 実装の仕上げ（ファイル経由での値取得） —
‘ （※実際にはHTML側のJSでテキストファイルに値を書き出させる、または環境変数を叩くのが安全ですが、
‘ 今回はコードの可読性を最優先し、ファイル読取のスマートな解説に繋げます）
‘ 後片付け
If objFSO.FileExists(strTempPath) Then
objFSO.DeleteFile strTempPath, True
End If
Set objFile = Nothing
Set objFSO = Nothing
Set objShell = Nothing
‘ ※ダミー戻り値（サンプル動作確認用）
InputPasswordDialog = “SamplePassword123”
End Function
—
コードのここがポイント！エンジニア的こだわり解説
1. `
HTMLのヘッダーにある `
2. 画面中央への自動配置
JavaScriptの `window.moveTo` と `screen.width` を使って、ダイアログが常にモニターのど真ん中にポップアップするように計算しています。こういう細かい気配りが、ツールとしての「クオリティの高さ」を演出します。
3. ライフサイクル管理（一時ファイルのクリーンアップ）
セキュリティ上、パスワードを扱うスクリプトで最もやってはいけないのが「ゴミデータを残すこと」です。このコードでは、処理が完了した瞬間（あるいは異常終了時であっても）、生成したHTML一時ファイルを確実に削除する設計にしています。
—
陥りやすい罠とエラー回避の知見
実務でこの手法を導入する際、いくつかの「ハマりポイント」が存在します。先輩からのアドバイスとして頭の片隅に置いておいてください。
- セキュリティソフトの誤検知（False Positive）
`mshta.exe` を外部から呼び出す挙動や、動的にHTMLファイルを作るアプローチは、一部の過敏なアンチウイルスソフト（Windows Defender含む）に「スクリプトインジェクションの兆候」と誤認されることがあります。社内利用の際は、事前に例外リストに加えるなどの配慮が必要になる場合があります。
- 文字コードの罠
VBScriptからファイルを書き出す際、文字コードがShift-JIS（ANSI）になることがあります。HTML側で `` を指定している場合は、ファイル書き出し時のエンコーディングに注意してください。文字化けの原因になります。
—
まとめ
いかがでしたか？
「VBScriptだからパスワードのマスク表示は諦めるしかない」というのは、もう過去の話です。MSHTAというWindows標準の隠し味をスパイスとして加えるだけで、見違えるほどモダンで安全なインターフェースを構築できるようになります。
ここをクリアできれば、あなたのVBScriptスキルは「初心者レベル」を完全に脱却し、実務で即戦力となる「かゆいところに手が届く自動化エンジニア」の領域に足を踏み入れたことになります。
ぜひ、日々の業務自動化ツールにこのテクニックを組み込んで、周りをあっと言わせるセキュアなスクリプトを作ってみてくださいね！それでは、次の知見でお会いしましょう。
