こんにちは！VBScriptの世界へようこそ。
業務を自動化する上で、データベースとの連携は避けて通れない非常にエキサイティングな領域です。
「データベースに接続するためには、コードの中にユーザーIDとパスワードを直書き（ハードコーディング）しなければならない……」
もしあなたがそんな思い込みをしているとしたら、今日でその古い常識とはお別れしましょう。
今回は、現場のセキュリティ要件を完璧にクリアしつつ、メンテナンス性も劇的に向上させる「Windows統合認証（Trusted_Connection）」を使ったセキュアなDB連携の極意を伝授します。ここをクリアすれば、あなたのVBScriptスキルは確実にプロの領域へ一歩踏み出しますよ。
—
なぜパスワードのハードコーディングは「悪」なのか？
業務効率化のためにVBScriptを書いていると、つい手っ取り早く、接続文字列に以下のように書いてしまいがちです。
‘ ＝絶対にやってはいけないアンチパターン ＝
connStr = “Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DBName;User ID=sa;Password=SuperSecretPassword!”
この書き方には、エンジニアとして見過ごせない重大なリスクが潜んでいます。
1. セキュリティ事故の温床: スクリプトファイル (.vbs) はただのテキストファイルです。PCの共有フォルダや端末内に平文（暗号化されていない状態）でパスワードが放置されることになります。
2. 保守性の地獄: データベースのパスワードを変更した瞬間、組織内のあちこちに散らばったVBScriptファイルを全て探し出して書き換えるという、途方もない作業が発生します。
救世主：「Windows統合認証 (Trusted_Connection)」
ここで登場するのが、今回マスターするWindows統合認証です。
「今、Windowsにログインしているあなた自身の権限（Active DirectoryアカウントやローカルWindowsアカウント）」をそのままデータベースに持ち込んで認証を通す仕組みです。
これを使えば、VBScriptの中にパスワードを一切書く必要がなくなります。
「Windowsにログインできている＝会社の正当なユーザーである」という信頼（Trusted）をそのままデータベースへの鍵として使うため、セキュリティ的に極めて安全なのです。
—
実践：セキュアDB接続スクリプトの全体像
それでは、実際にWindows統合認証を用いたVBScriptのコードを見てみましょう。
今回は、SQL Serverに接続してデータを取得するシナリオを想定しています。デスクトップにメモ帳を開き、拡張子を `.vbs` にして保存すれば、明日からすぐに現場で使える実用コードです。
‘ ==============================================================================
‘ ファイル名: SecureDBConnect.vbs
‘ 概要 : Windows統合認証を利用したセキュアなSQL Serverデータ取得サンプル
‘ 執筆者 : チーフアーキテクト
‘ ==============================================================================
Option Explicit
‘ メイン処理を実行
Call Main()
Sub Main()
Dim conn, rs
Dim connStr, sql
Dim recordCount
On Error Resume Next ‘ エラーハンドリングの準備
‘ ————————————————————————–
‘ 1. 接続文字列の構築（パスワード不要の魔法のフレーズ）
‘ ————————————————————————–
‘ Driver や Provider は環境に合わせて適宜変更してください（MSOLEDBSQLやSQLOLEDBなど）
connStr = “Provider=MSOLEDBSQL;” & _
“Server=YOUR_SERVER_NAME\INSTANCE_NAME;” & _
“Database=YOUR_DATABASE_NAME;” & _
“Trusted_Connection=yes;” ‘ ←これがWindows統合認証の要です！
‘ ————————————————————————–
‘ 2. ADODB.Connection オブジェクトの生成と接続
‘ ————————————————————————–
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = connStr
conn.ConnectionTimeout = 15 ‘ タイムアウトを15秒に設定
conn.Open
‘ 接続エラーのチェック
If Err.Number <> 0 Then
WScript.Echo “【接続エラー】データベースに接続できませんでした。” & vbCrLf & _
“詳細: ” & Err.Description
Call Cleanup(Nothing, conn)
Exit Sub
End If
WScript.Echo “データベースとの接続に成功しました（Windows統合認証）”
‘ ————————————————————————–
‘ 3. SQLクエリの実行とレコードセットの取得
‘ ————————————————————————–
sql = “SELECT EmployeeID, EmployeeName FROM M_Employees WHERE Status = 1”
Set rs = CreateObject(“ADODB.Recordset”)
rs.Open sql, conn, 1, 1 ‘ 1,1 = adOpenKeyset, adLockReadOnly (読み取り専用)
‘ エラーチェック
If Err.Number <> 0 Then
WScript.Echo “【クエリ実行エラー】” & Err.Description
Call Cleanup(rs, conn)
Exit Sub
End If
‘ ————————————————————————–
‘ 4. データの走査（イテレーション）
‘ ————————————————————————–
recordCount = 0
Do Until rs.EOF
WScript.Echo “社員ID: ” & rs.Fields(“EmployeeID”).Value & _
” / 氏名: ” & rs.Fields(“EmployeeName”).Value
recordCount = recordCount + 1
rs.MoveNext
Loop
WScript.Echo “処理完了。総レコード数: ” & recordCount & ” 件”
‘ ————————————————————————–
‘ 5. クリーンアップ（リソースの解放）
‘ ————————————————————————–
Call Cleanup(rs, conn)
End Sub
‘ ——————————————————————————
‘ 外部サブルーチン: オブジェクトの安全な破棄
‘ ——————————————————————————
Sub Cleanup(rs, conn)
On Error Resume Next
If Not rs Is Nothing Then
If rs.State = 1 Then rs.Close
Set rs = Nothing
End If
If Not conn Is Nothing Then
If conn.State = 1 Then conn.Close
Set conn = Nothing
End If
On Error GoTo 0
End Sub
—
コードの深掘りポイント：ここがエンジニアの腕の見せ所
上記のコードで、特に注目してほしいポイントをいくつか解説します。
1. `Trusted_Connection=yes;` の破壊力
接続文字列の中に書かれているこの一文がすべてを物語っています。これを入れることで、ADO（ActiveX Data Objects）は内部的にWindowsのセキュリティトークンを使用し、SQL Serverに対して「今このスクリプトを動かしているユーザーは、こういう権限を持っていますよ」と伝えます。SQL Server側でそのWindowsユーザー（または所属するActive Directoryグループ）に対して権限設定がされていれば、パスワードなしでスッと扉が開くわけです。
2. オブジェクトのライフサイクル管理 (`Cleanup` サブルーチン)
VBScriptを書く上で絶対に忘れてはいけないのが、使い終わったCOMオブジェクトの適切な解放です。
`Recordset` や `Connection` はメモリやデータベースのセッションを専有します。スクリプトが終了するからといって放置すると、データベース側に「ゾンビ接続」が残り続け、やがてコネクションプールを枯渇させる原因になります。
上記のコードのように、処理の最後（あるいはエラー発生時）に必ず `Close` し、`Set xxx = Nothing` でメモリを解放する習慣をつけましょう。
—
現場でよくある「ハマりどころ」と対策
このセキュアな接続方式を導入する際、初学者が必ずと言っていいほど直面する壁がいくつかあります。あらかじめ知っておけば怖くありません。
Q. 「ログインできませんでした。ユーザー ‘NT AUTHORITY\ANONYMOUS LOGON’ は信頼関係ありません。」というエラーが出る
- 原因: これは、VBScriptを実行している文脈が「ネットワーク経由」や「特定のサービスアカウント（IISやタスクスケジューラの不適切な設定）」になっており、Windowsの認証情報がデータベースサーバーに正しく伝わっていない（ダブルホップ問題など）場合に発生します。
- 対策: 基本的にこのスクリプトは、「ローカル端末上で、ログインユーザー自身の権限でタスクまたは手動実行する」環境で最も真価を発揮します。タスクスケジューラで実行する場合は、「ユーザーがログオンしているかどうかにかかわらず実行する（かつパスワードを保存する）」または「最上位の特権で実行する」の構成を確認してください。
Q. プロバイダ名は何を指定すればいい？
- 解説: コード内では `Provider=MSOLEDBSQL;`（Microsoft OLE DB Driver for SQL Server）を使用しています。お使いの環境によっては古い `Provider=SQLOLEDB;` がインストールされている場合もありますが、Microsoftのサポートライフサイクルを考慮し、現在では新しい OLE DB ドライバ、あるいは `ODBC Driver` を指定するのがモダンです（ODBCの場合は `Driver={ODBC Driver 17 for SQL Server};Server=…;Trusted_Connection=yes;` と書きます）。
—
まとめ
今回は、VBScriptとデータベース連携におけるセキュアなアプローチ「Windows統合認証（Trusted_Connection）」について解説しました。
- パスワードのハードコーディングはセキュリティリスクと保守性の悪化を招くため今すぐやめる。
- `Trusted_Connection=yes;` を使うことで、Windowsのログイン権限をそのままDBの認証に利用できる。
- 使い終わったCOMオブジェクトは `Cleanup` サブルーチンで確実に解放し、リソースリークを防ぐ。
ここをクリアできれば、あなたは単なる「マクロの記録者」ではなく、セキュリティと堅牢性を考慮できる一流の業務自動化エンジニアの仲間入りです。ぜひ、日々の開発現場に取り入れてみてくださいね！
