VBScriptでUNCパスを攻略する：ネットワーク越しのファイル操作を「鉄壁」にする極意
こんにちは。現場で「動けばいい」コードから「落ちない」コードへと脱却したいと願う皆さん、ようこそ。
今日は、VBScriptにおける「UNCパス（`\\Server\Share`形式）」の扱いについて深掘りします。ローカルのCドライブと違い、ネットワーク越しには「目に見えない壁」がいくつも存在します。これを理解せずコードを書くと、ある日は動き、ある日はエラーで止まるという「呪われたスクリプト」が出来上がります。
本日は、その呪いを解き、ネットワーク越しでも安定して動作するスクリプトの書き方を伝授します。
—
1. なぜUNCパスは「気まぐれ」なのか
VBScriptで `FileSystemObject` (FSO) を使う際、パスを `\\Server\Folder` と指定するのは簡単です。しかし、以下の理由で頻繁にエラーが発生します。
- 認証の欠如: サーバーがあなたのPCの資格情報を知らない（またはキャッシュが切れている）。
- 名前解決の遅延: DNSサーバーの応答が遅く、パスが見つからないと判断される。
- セッションの競合: 既に別の権限で同じサーバーに接続しており、上書き認証が拒否される。
これらを「運」で済ませず、「仕組み」で解決するのがプロのエンジニアの流儀です。
—
2. ネットワークアクセスを成功させる「3つのステップ」
安定稼働のためには、以下の3層で防御を固めます。
1. 疎通確認（Ping）: まずサーバーが生きているか確認する。
2. 接続確立（WScript.Network）: 共有フォルダへの「玄関」を叩く。
3. FSOによる操作: 玄関が開いてから安全に中に入る。
実践コード：堅牢なUNC操作テンプレート
以下のコードは、ネットワーク環境でも泥臭く、かつ確実に動作するように設計したものです。
Option Explicit
‘ ネットワーク経由でフォルダを確認し、ファイルを操作するサンプル
Dim fso, net, targetPath, targetFile
targetPath = “\\ServerName\SharedFolder”
targetFile = targetPath & “\data.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set net = CreateObject(“WScript.Network”)
‘ 1. ネットワーク疎通確認
If CheckNetworkPath(targetPath) Then
‘ 2. フォルダの存在確認と操作
If fso.FolderExists(targetPath) Then
WScript.Echo “アクセス成功: ” & targetPath
‘ ここでファイルの読み書きを行う
Else
WScript.Echo “フォルダが見つかりません。権限を確認してください。”
End If
Else
WScript.Echo “ネットワーク接続に失敗しました。”
End If
‘ ネットワークチェック関数
Function CheckNetworkPath(path)
Dim shell, exec, cmd
Set shell = CreateObject(“WScript.Shell”)
‘ Pingを1回だけ打ち、応答を待つ（Timeoutは1秒）
‘ サーバー名を抽出するための工夫が必要です（簡易的にPingを利用）
cmd = “ping -n 1 ” & Replace(Split(path, “\”)(2), “/”, “”)
If shell.Run(cmd, 0, True) = 0 Then
CheckNetworkPath = True
Else
CheckNetworkPath = False
End If
End Function
—
3. 現場で陥りやすい「罠」と対処法
罠①：認証エラー（Permission Denied）
VBScriptを実行しているユーザーと、サーバー側のアクセス権限が一致していない場合です。
解決策: スクリプト内で一時的に `net use` コマンドを叩く手法が有効です。
‘ 例：特定のアカウントでログインし直す場合
Dim shell
Set shell = CreateObject(“WScript.Shell”)
shell.Run “net use \\Server\Share /user:Domain\Username Password”, 0, True
※注意: パスワードを直書きするのはセキュリティリスクがあるため、環境変数から読み込むなどの工夫をしましょう。
罠②：ネットワークの「ゆらぎ」による例外
スクリプトが速すぎて、ネットワークドライブがマウントされる前に `fso.FileExists` を呼んでしまうことがあります。
解決策: 「リトライ処理」を入れてください。3回試してダメなら諦める、という設計にするだけで、エラー発生率は劇的に下がります。
—
4. 先輩エンジニアからのアドバイス
VBScriptは古い言語と言われますが、Windows環境での自動化においては、今なお「もっとも手軽で最強の武器」です。
UNCパスを扱う際の極意は「相手（ネットワーク）は常に裏切るものだと想定すること」です。
- 「ファイルがあるはずだ」と信じない。
- 「接続できているはずだ」と信じない。
常に `If fso.FolderExists(…) Then` で確認し、エラーを握りつぶさずにログとして残す。この泥臭い丁寧さが、あなたの書くスクリプトを「おもちゃ」から「業務システム」へと昇華させます。
まずはこのコードをコピペして、ご自身の環境の共有フォルダを叩いてみてください。エラーが出たら、それは「ネットワークと仲良くなるチャンス」です。応援していますよ！
