【不応答ネットワークドライブ復旧】WScript.Network を用いた応答停止ドライブの安全切断と再割り当て自動化 – 伝説のアーキテクトが語るWSHの真髄
長年、VBAシステムやレガシーアーキテクチャの最前線に立ってきた者ならば、ネットワークドライブの不安定さがもたらす苛立ちを肌で知っているだろう。特に、VPN接続の切断、Wi-Fiの一時的な途絶、あるいはサーバ側の問題によって「切断されたネットワークドライブ」と表示され、GUIからの操作すら受け付けなくなる現象は、ユーザーの生産性を著しく低下させ、システム管理者にとっては頭痛の種である。
今日のテーマは、この古くて新しい課題に対し、VBScriptとWSH（Windows Script Host）が如何に強力な処方箋となり得るかを示すことにある。単なる切断・再接続のスクリプトではない。オブジェクトのライフサイクル、パフォーマンスの重み、そしてシステム連携の極限を知り尽くした者のみが構築し得る、「安全かつ自動化された不応答ネットワークドライブ復旧ツール」の真髄をここに解き明かそう。
VBScriptとWSHの戦略的価値
「なぜ今、VBScriptなのか？」と問う声もあるだろう。新しい言語やフレームワークが次々と登場する中で、VBScriptは確かに「レガシー」の烙印を押されがちだ。しかし、システム管理、特にWindows環境における基盤的な自動化においては、その軽快さ、実行環境の標準搭載、そして何よりも安定性において、未だ代替し難い価値を持つ。
VBScriptは、COM (Component Object Model) オブジェクトの操作に特化している。これは、WSHが提供する `WScript.Shell` や `WScript.Network` といった組み込みオブジェクトだけでなく、OLE DB Provider、ADSI、そして強力な `WinMgmts` (WMI) オブジェクトへのアクセスを可能にする。これらのオブジェクトを適切に、そして深く理解することこそが、VBScriptを単なるスクリプト言語ではなく、強力なシステム自動化ツールへと昇華させる鍵となる。
オブジェクトのライフサイクルとリソース管理の鉄則
VBScriptにおけるオブジェクト操作の最も基本的な、しかし最も見過ごされがちな側面が、そのライフサイクル管理である。特に、`WScript.Network` や `WScript.Shell` のようなオブジェクトは、システムリソースを消費する。
Dim objNetwork ‘ WScript.Network オブジェクトを宣言
Set objNetwork = CreateObject(“WScript.Network”) ‘ オブジェクトを生成
‘ … オブジェクトを使った処理 …
Set objNetwork = Nothing ‘ オブジェクトの参照を解放し、リソースを適切に開放
この `Set objNetwork = Nothing` は、単なるおまじないではない。オブジェクトへの参照を明示的に解放することで、基盤となるCOMオブジェクトがシステムから適切にアンロードされ、メモリリークやハンドルリークを防ぐ。特に、長期間稼働するスクリプトや、頻繁に実行されるスクリプトにおいては、この徹底がシステムの安定性とパフォーマンスを左右する。オブジェクト生成のコストは決してゼロではないことを肝に銘じておくべきだ。
WScript.Network の解剖と限界
`WScript.Network` オブジェクトは、ネットワークドライブやプリンタ接続を管理するためのWSHの組み込みオブジェクトである。
- `MapNetworkDrive`: ネットワークリソースをドライブ文字に割り当てる。
- `RemoveNetworkDrive`: 割り当てられたネットワークドライブを切断する。
- `EnumNetworkDrives`: 現在接続されているネットワークドライブの一覧を取得する。
これらの機能は一見シンプルに見えるが、その挙動には注意が必要だ。
`RemoveNetworkDrive` の挙動とリスク
`RemoveNetworkDrive` メソッドは、指定されたドライブ文字を切断する。第2引数に `True` を渡すことで、永続的な接続（ユーザーログオン時に自動再接続される設定）も切断できる。しかし、これが曲者だ。
‘ 強制的にドライブを切断する例
objNetwork.RemoveNetworkDrive “Z:”, True ‘ Zドライブを永続設定も含めて切断
不応答状態のドライブに対し、このメソッドを「何も考えずに」実行するのは危険である。なぜなら、`RemoveNetworkDrive` は、対象ドライブが実際に不応答であるか、アクセス可能であるかを判断しないからだ。接続が確立されているにも関わらず、誤って切断してしまうリスクを常に考慮しなければならない。
`WScript.Network` だけでは見えない「不応答」の真実
`WScript.Network.EnumNetworkDrives` は、システムに認識されているネットワークドライブの一覧を返す。しかし、これは「論理的な接続情報」に過ぎず、そのドライブが現在実際にアクセス可能であるか、あるいは応答を停止しているかまでは教えてくれない。
ここで必要となるのが、より深いシステム情報へのアクセスと、多角的なチェックである。
不応答ドライブの検出ロジック：多層防御アプローチ
真に「不応答」なドライブを特定するためには、複数の情報源と検証ステップを組み合わせる必要がある。これは、単一のチェックでは見落とされがちなエッジケースを排除し、誤検知のリスクを最小限に抑えるための「多層防御」のアプローチである。
1. WMI (WinMgmts) による接続状態の確認
Windows Management Instrumentation (WMI) は、OSのあらゆる設定、状態、イベントにアクセスするための強力なインターフェースである。VBScriptからWMIを利用することで、`WScript.Network` では得られない詳細なネットワーク接続情報を取得できる。
`Win32_NetworkConnection` クラスは、現在確立されているネットワーク接続に関する情報を提供する。特に `ConnectionState` プロパティは、接続の状態を示す重要な手がかりとなる。
Const WMI_CONNECT_STATE_DISCONNECTED = &H80000000 ‘ 0x80000000L
Const WMI_CONNECT_STATE_PAUSED = &H40000000 ‘ 0x40000000L
Const WMI_CONNECT_STATE_ERROR = &H20000000 ‘ 0x20000000L
Const WMI_CONNECT_STATE_RECONNECTED = &H10000000 ‘ 0x10000000L
Const WMI_CONNECT_STATE_CONNECTED = &H00000000 ‘ 0x00000000L
Const WMI_CONNECT_STATE_TEMPORARY = &H00000001 ‘ 0x00000001L
Function GetNetworkDriveStatus(strDriveLetter)
Dim objWMIService, colItems, objItem
Dim strQuery
GetNetworkDriveStatus = “UNKNOWN” ‘ デフォルト値
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ Win32_NetworkConnection をクエリし、指定されたドライブ文字の接続を探す
strQuery = “SELECT FROM Win32_NetworkConnection WHERE LocalName = ‘” & strDriveLetter & “‘”
Set colItems = objWMIService.ExecQuery(strQuery)
If colItems.Count > 0 Then
For Each objItem In colItems
‘ ConnectionState の値に基づいて状態を判断
Select Case objItem.ConnectionState
Case WMI_CONNECT_STATE_CONNECTED
GetNetworkDriveStatus = “CONNECTED”
Case WMI_CONNECT_STATE_DISCONNECTED
GetNetworkDriveStatus = “DISCONNECTED”
Case WMI_CONNECT_STATE_ERROR
GetNetworkDriveStatus = “ERROR”
Case Else
GetNetworkDriveStatus = “OTHER_STATE (” & objItem.ConnectionState & “)”
End Select
Exit For ‘ 最初のマッチで十分
Next
Else
GetNetworkDriveStatus = “NOT_FOUND_VIA_WMI”
End If
Set colItems = Nothing
Set objWMIService = Nothing
End Function
WMIは強力だが、クエリの実行にはそれなりのオーバーヘッドがある。無闇に呼び出すのではなく、必要最低限の情報を取得するようクエリを最適化することが肝要だ。
2. ファイルシステムオブジェクト (FSO) による応答性チェック
WMIで「切断」や「エラー」と判断されても、それが一時的なものか、あるいは完全な不応答状態なのかを判断するには、実際にアクセスを試みるのが最も確実だ。FSO (FileSystemObject) は、ファイルシステムへのアクセスを提供する。
Function IsDriveAccessible(strDriveLetter)
Dim objFSO, objDrive
On Error Resume Next ‘ エラー発生時もスクリプトを継続
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
IsDriveAccessible = False ‘ デフォルトはアクセス不可
If objFSO.DriveExists(strDriveLetter) Then
Set objDrive = objFSO.GetDrive(strDriveLetter)
‘ ここでアクセスを試みる
‘ 例えば、ドライブのボリューム名を読み込もうとする
‘ または、FreeSpace を取得しようとする
‘ これらの操作がエラーなく完了すれば、アクセス可能と判断
Dim strVolName
strVolName = objDrive.VolumeName ‘ これでアクセスを試行
If Err.Number = 0 Then
IsDriveAccessible = True
Else
‘ エラーが発生した場合（例: ネットワークパスが見つからない）
‘ WScript.Echo “Error accessing ” & strDriveLetter & “: ” & Err.Description
End If
Else
‘ WScript.Echo strDriveLetter & ” does not exist according to FSO.”
End If
Set objDrive = Nothing
Set objFSO = Nothing
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
End Function
FSOによるアクセスは、ネットワークの状況によっては非常に時間がかかる場合がある。このため、`WScript.Shell.Run` を使って、`DIR` コマンドなどをタイムアウト付きで実行する方が、より堅牢なチェックとなる場合もある。しかし、ここではFSOの直接的なアクセスでシンプルに構成している。
3. Pingコマンドによる疎通確認
物理的なネットワークレベルでの疎通を確認するには、`ping` コマンドが有効だ。共有フォルダのホスト名やIPアドレスに対して `ping` を実行し、応答があるかどうかを確認する。
Function IsHostReachable(strHostNameOrIP)
Dim objShell, strCommand, strResult
Dim blnReachable
blnReachable = False
Set objShell = CreateObject(“WScript.Shell”)
‘ ping コマンドを実行し、結果を取得。-n 1 で1回だけpingを送信。-w 1000 で1000msのタイムアウト。
strCommand = “cmd /c ping -n 1 -w 1000 ” & strHostNameOrIP & ” | findstr /i “”TTL”” ”
‘ 詳細なエラーレベルは不要なのでRunの戻り値は確認しない (0以外でもReachableの可能性あり)
strResult = objShell.Exec(strCommand).StdOut.ReadAll
If InStr(strResult, “TTL”) > 0 Then ‘ TTL (Time To Live) が含まれていれば応答あり
blnReachable = True
End If
Set objShell = Nothing
IsHostReachable = blnReachable
End Function
この `ping` チェックは、ドライブ文字だけでは不十分な場合（例：マップされたドライブの共有元パスが不明な場合）に、別途共有元サーバの情報を取得して実行する必要がある。
実践コード：不応答ネットワークドライブ復旧スクリプト
ここまでの知見を統合し、不応答ドライブを検出し、安全に切断・再接続するVBScriptを構築する。
Option Explicit
‘ — 定数定義 —
Const LOG_FILE_PATH = “C:\Temp\NetworkDriveRecovery.log” ‘ ログファイルのパス
Const DEFAULT_TIMEOUT_SECONDS = 10 ‘ FSOアクセス試行時の擬似タイムアウト秒数
Const WMI_CONNECT_STATE_DISCONNECTED = &H80000000 ‘ WMI ConnectState: 切断
Const WMI_CONNECT_STATE_ERROR = &H20000000 ‘ WMI ConnectState: エラー
‘ — グローバルオブジェクト (必要に応じて) —
Dim g_objFSO ‘ FileSystemObject は頻繁に使うためグローバル化も検討可だが、ここでは関数内で生成・解放を徹底
Dim g_objShell
Dim g_objNetwork
‘ — メイン処理 —
Call Main()
Sub Main()
Dim objNetwork, objShell, objFSO
Dim colDrives, objDrive
Dim strDriveLetter, strRemotePath, strStatus
Dim arrProblemDrives() ‘ 問題のあるドライブを格納する配列
Dim i, k
Dim blnProblemFound
Set objNetwork = CreateObject(“WScript.Network”)
Set objShell = CreateObject(“WScript.Shell”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”) ‘ FSOはドライブアクセスに使う
Call LogMessage(“— ネットワークドライブ自動復旧処理開始 —“)
‘ 現在接続されているネットワークドライブを列挙
Set colDrives = objNetwork.EnumNetworkDrives()
blnProblemFound = False
‘ 配列の初期化
ReDim arrProblemDrives(0)
k = 0
For i = 0 To colDrives.Count – 1 Step 2
strDriveLetter = colDrives.Item(i) ‘ ドライブ文字 (例: “Z:”)
strRemotePath = colDrives.Item(i + 1) ‘ リモートパス (例: “\\Server\Share”)
Call LogMessage(“チェック中: ” & strDriveLetter & ” -> ” & strRemotePath)
‘ — 検出ロジック —
‘ 1. WMIによる接続状態の確認
strStatus = GetNetworkDriveStatusWMI(strDriveLetter)
Call LogMessage(” WMIステータス: ” & strStatus)
‘ 2. FSOによる応答性チェック (WMIで切断/エラーの場合のみ詳細チェック)
If strStatus = “DISCONNECTED” Or strStatus = “ERROR” Or strStatus = “NOT_FOUND_VIA_WMI” Then
If Not IsDriveAccessibleFSO(strDriveLetter, DEFAULT_TIMEOUT_SECONDS) Then
Call LogMessage(” FSOアクセスチェック: 応答停止を確認。”)
‘ 問題のあるドライブとしてマーク
If blnProblemFound Then
ReDim Preserve arrProblemDrives(UBound(arrProblemDrives) + 1)
End If
arrProblemDrives(k) = strDriveLetter & “|” & strRemotePath
k = k + 1
blnProblemFound = True
Else
Call LogMessage(” FSOアクセスチェック: アクセス可能と判断。”)
End If
Else
Call LogMessage(” ドライブは正常に接続されている模様。”)
End If
Next
‘ — 復旧処理 —
If blnProblemFound Then
Call LogMessage(k & “個の不応答ネットワークドライブを検出しました。復旧処理を開始します。”)
For i = 0 To UBound(arrProblemDrives)
If Len(arrProblemDrives(i)) > 0 Then
Dim arrDriveInfo
arrDriveInfo = Split(arrProblemDrives(i), “|”)
strDriveLetter = arrDriveInfo(0)
strRemotePath = arrDriveInfo(1)
Call LogMessage(“復旧対象: ” & strDriveLetter & ” (” & strRemotePath & “)”)
‘ 1. 強制切断
On Error Resume Next ‘ エラーが発生しても処理を継続
objNetwork.RemoveNetworkDrive strDriveLetter, True ‘ 永続設定も含めて強制切断
If Err.Number <> 0 Then
Call LogMessage(” 切断失敗: ” & Err.Description & ” (Error ” & Err.Number & “)”)
‘ 失敗しても再接続を試みるか、スキップするかは要件次第
Else
Call LogMessage(” 切断成功。”)
End If
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
WScript.Sleep 2000 ‘ ネットワークの安定化のため2秒待機
‘ 2. 再接続
On Error Resume Next
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, True ‘ 永続設定で再接続
If Err.Number <> 0 Then
Call LogMessage(” 再接続失敗: ” & Err.Description & ” (Error ” & Err.Number & “)”)
Else
Call LogMessage(” 再接続成功。”)
‘ 再接続後の確認 (オプション)
If IsDriveAccessibleFSO(strDriveLetter, DEFAULT_TIMEOUT_SECONDS) Then
Call LogMessage(” 再接続後のFSOアクセス確認: 成功。”)
Else
Call LogMessage(” 再接続後のFSOアクセス確認: 失敗。”)
End If
End If
On Error GoTo 0
End If
Next
Else
Call LogMessage(“不応答ネットワークドライブは検出されませんでした。”)
End If
Call LogMessage(“— ネットワークドライブ自動復旧処理終了 —“)
‘ オブジェクトの明示的な解放
Set objFSO = Nothing
Set objShell = Nothing
Set objNetwork = Nothing
End Sub
‘ — ヘルパー関数群 —
‘ WMIを使用してネットワークドライブの状態を取得
Function GetNetworkDriveStatusWMI(strDriveLetter)
Dim objWMIService, colItems, objItem
Dim strQuery
GetNetworkDriveStatusWMI = “UNKNOWN”
On Error Resume Next ‘ WMIアクセスでエラーが発生する可能性も考慮
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
If Err.Number <> 0 Then
Call LogMessage(” WMIサービスへの接続に失敗: ” & Err.Description)
GetNetworkDriveStatusWMI = “WMI_ERROR”
Exit Function
End If
On Error GoTo 0
strQuery = “SELECT FROM Win32_NetworkConnection WHERE LocalName = ‘” & strDriveLetter & “‘”
Set colItems = objWMIService.ExecQuery(strQuery)
If colItems.Count > 0 Then
For Each objItem In colItems
Select Case objItem.ConnectionState
Case WMI_CONNECT_STATE_CONNECTED
GetNetworkDriveStatusWMI = “CONNECTED”
Case WMI_CONNECT_STATE_DISCONNECTED
GetNetworkDriveStatusWMI = “DISCONNECTED”
Case WMI_CONNECT_STATE_ERROR
GetNetworkDriveStatusWMI = “ERROR”
Case Else
GetNetworkDriveStatusWMI = “OTHER_STATE (” & objItem.ConnectionState & “)”
End Select
Exit For
Next
Else
GetNetworkDriveStatusWMI = “NOT_FOUND_VIA_WMI”
End If
Set colItems = Nothing
Set objWMIService = Nothing
End Function
‘ FSOでドライブにアクセス可能かチェック (擬似的なタイムアウト付き)
Function IsDriveAccessibleFSO(strDriveLetter, iTimeoutSeconds)
Dim objFSO
Dim blnAccessible
Dim dStartTime, dCurrentTime
Dim blnAccessAttempted ‘ アクセス試行フラグ
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
blnAccessible = False
blnAccessAttempted = False
dStartTime = Timer ‘ 開始時刻を記録
On Error Resume Next ‘ エラー発生時もスクリプトを継続
Do While (Timer – dStartTime < iTimeoutSeconds) And Not blnAccessAttempted If objFSO.DriveExists(strDriveLetter) Then Dim objDrive Set objDrive = objFSO.GetDrive(strDriveLetter) ' ドライブのプロパティアクセスを試行し、エラーをチェック ' 例: objDrive.VolumeName, objDrive.FreeSpace, objDrive.TotalSize ' これが最も簡潔なアクセス試行。 Dim dummy As String dummy = objDrive.VolumeName ' ここで実際にアクセスが発生 If Err.Number = 0 Then blnAccessible = True End If Set objDrive = Nothing ' オブジェクト解放 Else ' ドライブが存在しない場合は、アクセス不可 blnAccessible = False End If blnAccessAttempted = True ' アクセス試行完了 Loop ' タイムアウトまで待機するか、アクセス完了で終了 Loop While False ' ループは1回のみ実行されるようにする On Error GoTo 0 ' エラーハンドリングを元に戻す Set objFSO = Nothing IsDriveAccessibleFSO = blnAccessible End Function ' ログファイルに出力する関数 Sub LogMessage(strMessage) Dim objFSO, objTS On Error Resume Next ' エラー発生時も継続 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(LOG_FILE_PATH, 8, True) ' 8=Append, True=CreateIfNotExist objTS.WriteLine Now & " - " & strMessage objTS.Close Set objTS = Nothing Set objFSO = Nothing On Error GoTo 0 End Sub
コードの解説と注意点
1. オブジェクトの明示的解放: `Set obj = Nothing` を徹底している。特にループ内でオブジェクトを生成する場合は、ループの外で一度生成し、プロパティやメソッドを繰り返し利用し、ループ終了後に一度だけ解放するのが理想的だ。しかし、今回の例では、各関数の独立性を保つため、関数内で生成・解放している。
2. 多層検出: WMIによる論理状態確認と、FSOによる実アクセス試行の二段階で「不応答」を判断している。これにより、誤検知のリスクを低減している。
3. 擬似タイムアウト: `IsDriveAccessibleFSO` 関数では、`Timer` 関数と `Do While` ループを用いて、FSOアクセスが一定時間内に完了しない場合にタイムアウトとして処理する擬似的なメカニズムを実装している。これは、ネットワークの状態が非常に悪い場合にスクリプトがハングアップするのを防ぐために重要だ。
4. エラーハンドリング: `On Error Resume Next` を必要な範囲でのみ使用し、エラー発生後は速やかに `Err.Number` や `Err.Description` をチェックし、ログに記録。その後 `On Error GoTo 0` で通常のエラーハンドリングに戻す。これは堅牢なスクリプトの基本である。
5. ログ出力: `LogMessage` 関数を通じて、処理の進行状況、検出された問題、復旧の成否を詳細にログファイルに記録する。これは、問題発生時のトラブルシューティングに不可欠な情報となる。
6. `WScript.Sleep`: 切断後、再接続までに短い待機時間を入れることで、ネットワークの状態が安定するのを待つ。これは、特に不安定なネットワーク環境での再接続成功率を高めるための実用的なテクニックだ。
パフォーマンスとリソース管理の極意
この種の自動化スクリプトは、システム上で定期的に実行されることが多いため、パフォーマンスとリソース消費には最大限の配慮が必要だ。
- オブジェクト生成のコスト認識: `CreateObject` は決して軽い処理ではない。不必要なオブジェクト生成は避け、一度生成したオブジェクトは可能な限り再利用する。上記のコードでは、`Main` 関数内で `objNetwork`, `objShell`, `objFSO` を一度だけ生成し、複数の処理で使い回すことで効率化を図っている。
- WMIクエリの最適化: `SELECT ` は手軽だが、必要なプロパティのみを `SELECT` 句に指定することで、WMIプロバイダの負荷とネットワークトラフィックを削減できる。
- ループ内での処理: ループ内で時間のかかる処理（例: `CreateObject`, `WScript.Sleep`, WMIクエリ）を実行する場合は、その頻度と影響を慎重に評価する必要がある。
- 明示的な解放の徹底: 繰り返しになるが、オブジェクトの参照を解放しないと、メモリやハンドルといったシステムリソースが消費され続け、最終的にはシステム全体のパフォーマンス低下や不安定化を招く。これはレガシー環境において特に顕著な問題となる。
運用上の注意点と拡張性
1. 管理者権限の必要性
ネットワークドライブの切断・再接続は、ユーザーセッションのコンテキストで行われるため、多くの場合、対象ユーザーの権限で実行可能だ。しかし、システムワイドな設定変更や、他のユーザーのドライブを操作するようなシナリオでは、管理者権限が必要となる場合がある。タスクスケジューラで実行する場合は、適切なユーザーアカウントで、必要に応じて「最上位の特権で実行する」オプションを有効にする。
2. スクリプトの実行頻度とスケジュール
このスクリプトは、タスクスケジューラを用いて定期的に（例: 5分～15分おき）実行するのが一般的だ。しかし、あまりにも頻繁に実行すると、システムの負荷が高まり、ネットワークにも無用なトラフィックを発生させる。環境の安定性と問題発生頻度を考慮し、最適な実行間隔を設定すべきである。
3. エラー通知の強化
ログファイルへの記録は基本だが、問題が検出され、自動復旧が試みられた際には、システム管理者への通知（例: メール送信、イベントログへの書き込み）を行うことで、早期の状況把握と対応が可能となる。
‘ メール送信機能の追加例 (CDO.Messageを使用)
Sub SendEmail(strSubject, strBody)
Dim objMessage, objConfiguration, objFields
On Error Resume Next
Set objMessage = CreateObject(“CDO.Message”)
Set objConfiguration = CreateObject(“CDO.Configuration”)
Set objFields = objConfiguration.Fields
With objFields
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = True ‘ SSLを使用する場合
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1 ‘ 認証
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = “your_username@example.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “your_password”
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.example.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2 ‘ cdoSendUsingPort
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 587 ‘ or 465 for SSL
.Update
End With
Set objMessage.Configuration = objConfiguration
objMessage.To = “admin@example.com”
objMessage.From = “automated_script@example.com”
objMessage.Subject = strSubject
objMessage.TextBody = strBody
objMessage.Send
If Err.Number <> 0 Then
LogMessage(“メール送信失敗: ” & Err.Description)
End If
Set objMessage = Nothing
Set objFields = Nothing
Set objConfiguration = Nothing
On Error GoTo 0
End Sub
（このメール送信機能は、環境に合わせた設定変更が必要である点に留意すること。）
4. PowerShellへの移行パス
VBScriptは依然として強力だが、将来を見据えれば、よりモダンなスクリプト言語であるPowerShellへの移行も視野に入れるべきだ。PowerShellは、.NET Frameworkを基盤とし、WMIやCOMオブジェクトへのアクセスはもちろん、より強力なコマンドレット、エラーハンドリング、そしてモジュール機構を提供する。本スクリプトで培った「多層防御」や「オブジェクト管理」の思想は、PowerShellスクリプト開発においてもそのまま活かせるだろう。
まとめ
VBScript (Visual Basic Scripting Edition) は、確かに「レガシー」の範疇に入る技術かもしれない。しかし、その深い理解と、WSHが提供するオブジェクト群、さらにはWMIや外部コマンドとの連携を極めることで、現代のシステム管理においても、極めて実用的で堅牢な自動化ソリューションを構築することが可能である。
今回示した不応答ネットワークドライブ復旧ツールは、単なるコードの羅列ではない。オブジェクトのライフサイクルを深く洞察し、パフォーマンスの重みを意識し、多角的な情報源を統合することで、システムに潜む不確実性を排除し、ユーザーのストレスを軽減するための「真の自動化」を追求した結果である。
伝説的なチーフアーキテクトとしての私のメッセージは明確だ。技術の本質を見極め、表面的な流行に惑わされず、目の前の課題に対し最も効率的で堅牢な解決策を追求せよ。VBScriptはそのための強力な武器となり得る。ただし、その力を最大限に引き出すためには、その深奥にまで踏み込む覚悟が必要だ。この極限の知見が、諸君のシステムをより堅牢なものへと導く一助となれば幸いである。
