WMIでリモートコンピューターにアクセスした際のAccessでファイルが読み込めない

Question

現在、社内システムの開発中です。
LAN系がAとBの二つがあり、１台両方のLANに属しているPC X (Windows)があります。
このとき、LAN AのPCから　LAN BのファイルサーバYの閲覧を行おうとしております。
ある程度はやってみたのですが、Access でファイルが読み込めないことが発覚しました。
良い方法はありませんでしょうか。

現在は、PC X にAccess VBAを置いて、LAN A上のPCからWMIにて Xにログイン、
バッチを叩いてAccess VBAを実行しています。
Access VBA はLAN B上のサーバにクエリを発行してaccdb上にコピーした後、
クエリで選択されたLAN B上のパスのテキストファイルからデータをクロールします。
あとは　Access を　Xの共有フォルダ上においておき、
LAN Aからアクセスを開いてテーブルをコピーするだけでデータをクロールできるようにしよう、と考えておりました。

発生している問題・エラーメッセージ

LAN AからAccessを実行した際、
LAN B ファイルサーバ Y 上のテキストファイルが見つかりません。

WMI は添付の通りで、Xが見れるファイルはすべて見れると思っておりました。

実態は違うのでしょうか。
回避策はありませんでしょうか。
WMIの設定を変える必要があるのでしょうか。

お手数ですが、ご指導のほどよろしくお願いいたします。

該当のソースコード

'RemoteCrawl.vbs (A上で実行)
RemoteExecute "PCX",".\PCXUSER","","cmd.exe /c D:\共有フォルダ\データベース\DoAccess.vbs"

Function RemoteExecute(strServer, strUser, strPassword, CmdLine) 
Const Impersonate = 3 
RemoteExecute = -1 
Set Locator = CreateObject("WbemScripting.SWbemLocator") 
Set Service = Locator.ConnectServer(strServer, "root\cimv2", strUser, strPassword) 
Service.Security_.ImpersonationLevel = Impersonate 
Set Process = Service.Get("Win32_Process") 
result = Process.Create(CmdLine, , , ProcessId) 
If (result <> 0) Then 
WScript.Echo "Creating Remote Process Failed: " & result 
Wscript.Quit 
End If 
RemoteExecute = ProcessId 
End Function

'DoAccess.vbs(b上で実行)
Set objArgs = Wscript.Arguments
runXLmacro

Function runXLmacro()
On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
AcApp.visible = true
AcApp.OpenCurrentDatabase "D:\共有フォルダ\データベース\データ収集.accdb"
AcApp.Run("Crawl")

if err.Number <> 0 then
Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.CreateTextFile("Error.txt", true)
tso.Write(err.description)
tso.Close
End if

End Function

'Access データ収集.accdb
Public Sub Crawl()
     'LAN B 上のSQL Server からファイルパスをSelectしてローカルテーブルにInsert(これは問題なく完了）
    GetURLs

　　'ファイルサーバ Y からテキストファイルを開いてローカルテーブルにInsert 
    InsertCrawlData
End Sub


Public Sub InsertCrawlData()
    
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    Dim rs2 As ADODB.Recordset
    Set rs2 = New ADODB.Recordset
    
    rs.Open "Select Path From FilePaths ", cn, adOpenDynamic, adLockPessimistic
    rs2.Open "TextDataTable", cn, adOpenDynamic, adLockPessimistic
    
    Do While Not rs.EOF
    
        On Error Resume Next
        'テキストセット
        
        Dim ts As TextStream
        Set ts = fso.GetFile(Trim(rs("Path").Value)).OpenAsTextStream

        InsertMain ts, rs, rs2

        Err.Number = 0
        rs.MoveNext
    Loop
    
End Sub

Public Sub InsertMain(ts As TextStream, rs As ADODB.Recordset, rs2 As ADODB.Recordset)
    Dim s As String
    
    Do Until ts.AtEndOfStream
    
        s = ts.ReadLine
            If Err.Number = 0 Then
                rs2.AddNew
                rs2("Path").Value = s
            End If
        rs2.Save
    Loop
End Sub

試したこと

・Xをリモートデスクトップで起動してAccessを実行→◎
・ファイルサーバYをXのネットワークドライブにする→×

補足情報（FW/ツールのバージョンなど）

A上のPC Windows 10
X Windows 7
Y Windoes Server 2016

WMI の参照元 https://okwave.jp/qa/q6806531.html

Comments

[Orlofsky]

URLは https://teratail.com/help/question-tips#questionTips3-7 の [リンク] に修正してください。

[odango]

修正しました。
ご指摘ありがとうございました。
初めての利用につき、非常に助かります。

Answer 1

直接AからYを参照しようとする形になり、別のネットワークなので参照できていないのではないでしょうか。

できるだけルーティング設定などを触らない簡易な方法であれば、XでVBAを実行してYからXにファイルコピーしておき、AからはXのファイルを参照するのが安全牌なように思います。

Comments

[odango]

ご返答、ありがとうございました。

おっしゃられる通り、AからYとして認識されているようです。
WMIの　ImpersonationLevel = Impersonate
がかなり怪しいかとは思うのですが、 いい方法が思いつかず…

あきらめて夜間バッチでY上のファイルをX上にコピーするツールを作成しようかと思います。
ありがとうございました。