ネットワークコピーについて

質問

VB6を使用したファイルのネットワークコピーを行っていますが
２回目以降の処理が上手くいきません。
（必ず2回目ではなく、3回目の時はあれば、4回目の時もあります。）
原因及び解決方法をご存知でしたらご教示願います。

■環境
Windows XP SP1（接続元、接続先、ともに）

■接続方法
目的の共有フォルダに対してネットワークドライブを割り当て、コピーを行っています。
接続する端末はコンボボックスによって選択可能で固定ではありません。

■発生エラー
２回目以降のドライブ接続処理で以下のメッセージ
「同じユーザーによる、サーバーまたは共有リソースへの複数のユーザー名での複数の接続は許可されません。
サーバーまたは共有リソースへの以前の接続をすべて切断してから、再試行してください。」

■確認事項
・エラー発生時にエクスプローラ上ではネットドライブは割り当てられていない。
・エラー発生時にコマンドプロンプトにて net use を実行すると「一覧にエントリが存在しません。」と表示される。
・コンピュータ名で接続し、エラー発生後にIPアドレスで接続は可能だが、こちらも数回の試行で同様のエラーが発生し、
コンピュータ名、IPアドレス両方での接続が不可能になる。
・ファイルのコピー処理を行わずに、ネットドライブの接続と切断を繰り返してもエラーは発生しない。
・当エラーが発生した場合はログオフしないかぎりと2度と接続できない。（30分程度放置しても状況変化せず。）
・切断処理の第2引数にTrueを設定しても変化なし。
・Windows XP SP2 では当事象が再現しない。

■VBのコード
'オブジェクト生成
Dim FS, WshNet
Set FS = CreateObject("Scripting.FileSystemObject")
Set WshNet = CreateObject("WScript.Network")
'接続
WshNet.MapNetworkDrive "Z:", "\\Svr\temp$", False, "administrator", "password"
'コピー
FS.CopyFile "コピー元パス", "Z:\", True
'切断
WshNet.RemoveNetworkDrive "Z:", False, True

回答No.2

Donotrely · ベストアンサー

もしかしてActiveDirectoryに参加させ、ドメインアカウントで接続してますか？

だとすると、
接続及びネットドライブマウントもnet useコマンドで実行し、
切断もnet useコマンドでやればうまく行くかもしれません。

ActiveDirectoryに参加したPCでドメインアカウントでログインした状態で接続すると、
net useではその接続が見えませんし、削除もできない可能性が高いです。

net useからは見えないが確かにセッションが確立しているかどうかは、

WshNet.MapNetworkDrive "Z:", "\\Svr\temp$", False, "administrator", "password"

で接続した上で、ローカル側でnet useを実行して接続が表示されないことを確認する一方、
実機のコンソール(リモートじゃダメ)で、「コンピュータの管理」のセッションを観察するか、
コマンドプロンプトでnet sessionを実行し、セッションが存在することが確認できれば検証できると思います。

仮説としては

WshNet.MapNetworkDrive "Z:", "\\Svr\temp$", False, "administrator", "password"

で(net useで見えない)セッションが確立し、ネットドライブがマウントされ、

WshNet.RemoveNetworkDrive "Z:", False, True

でネットドライブだけがアンマウントされるが、(net useで見えない)セッションは残るし、削除もできない。

です。

お礼

ご丁寧な解説ありがとうございます。
ご指摘どおりActiveDirectoryに参加したPCを使用しておりますが、
ログインには端末のローカルアカウントを使用しています。
しかしながら、ドライブの接続切断ともにnet useを実行することで解決できました。
また、接続後は数秒の待機が必要だったようです。
（接続後即コピーを行うと、パスを見つかられない状態になっていました。）

Donotrely様のアドバイスにより解決でき非常に助かりました。
ありがとうとうございました！

以下、改修後の状態

'接続
shell "command.com /c net use Z: \\Svr\temp$ パスワード Administrator"

'５秒程待機

'コピー
FS.CopyFile "コピー元パス", "Z:\", True
'切断
shell "command.com /c net use Z: /delete"

回答No.1

Donotrely

もしかしたらネットドライブを切断しても接続は残っているのでは？

2回目やる前にコマンドプロンプトで

net use

で確認して下さい。
もし残っていたら接続も切るんでしょうね。

net use \\Svr\temp$ /delete(ちょっと怪しい)

のコマンドラインを実行させて。
vbsならコマンドラインの実行のさせ方は知っていますが、VBは知りません。
ごめんなさい。

お礼

回答ありがとうございます。
一応質問内容にも書いていますが、エラー発生時にnet useでの確認は行ってみたんですが情報なしでした。
切断後に都度確認してみた方がよさそうですかねぇ・・・
ただ発生タイミング分からないので正直厳しそうというのが本音です。