※ ChatGPTを利用し、要約された質問です（原文：net useで接続したファイルをrunasでxcopyできない）
net useで接続したファイルをrunasでxcopyできない
このQ&Aのポイント
VBScriptでnet useで接続した先のファイルを管理者権限でxcopyでコピーする方法について質問します。
net useでネットワークに接続はできるが、runasを使用してxcopyでコピーすることができない現象に遭遇しています。
環境はWindows XPとWindows 2000で、DOSコマンドでは成功していますが、VBScript内での実行ができません。お力添えをいただけると助かります。
net useで接続したファイルをrunasでxcopyできない
こんにちは。VBScriptに関する質問です。
net useで接続した先のファイルをローカルの同名ファイルに
管理者権限で（runasを使用）xcopyを利用してコピーしたいのですが
ネットワークに接続はされるのですが、コピーができません。
ちなみに、ローカルからローカルでは成功しています。
※下記のバッチを流した場合にエラーはでません。
※ローカルからの変更点は、Call文を利用してる２行を追加したのと
xcopyの送り先をnet useで接続した先に変えただけです。
※DOSコマンドで行った場合は成功しています。
環境：Windows XP and Windows 2000
Set WshShell = Wscript.CreateObject("WScript.Shell")
Call WshShell.Run("net use l: \\DDD\** /user:DDD\［ログオンID] ［ログオンPW］")
Set WshEnv = WshShell.Environment("user")
WshEnv("C:\TEST\b.txt") = "USER01"
Wshshell.Run("cmd.exe")
WScript.Sleep(500)
WshShell.SendKeys("runas /user:USER01 " + chr(34) + "xcopy l:\TEST\b.txt C:\TEST\b.txt /Y" + chr(34))
WshShell.SendKeys("{Enter}")
WScript.Sleep(500)
WshShell.AppActivate "C:\WINDOWS\system32\runas.exe"
WshShell.SendKeys("XXXXXX")
WshShell.SendKeys("{Enter}")
Call WshShell.Run("net use l: /delete /Y")
WshShell.SendKeys("exit")
WshShell.SendKeys("{Enter}")
手詰まりになってしまい、困っています。
どなたか、お力添えをいただけると助かります。
よろしく、お願いいたします。
お礼
お早い回答ありがとうございます。 返答が遅れてしまい、申し訳ありません。 プログラミング初心者なもので、よく分からないのですが・・・ UNCのままXCOPYを利用しても、接続先が見えないので成功しないのですが、 どのように利用したらよいのでしょうか？。。。 どうしても、ネットワーク上のパソコンに接続しないといけない 状況なのです。 お答えをいただければ、助かります。