エクセルのファイルを開いている人のユーザー情報を表示したい

Question

事前情報としてサーバにあるエクセルファイルが非共有の場合です。

上記ファイルを他のユーザーが開いている場合、手動で開こうとすると「〜はロックされています。使用者はAAAです。」
とダイアログが表示されますが、このダイアログからマクロでAAAの部分を取得したいです。
vbaでwshNetworkを使用する方法があったのでテキストファイルを出力後、参照してみましたができませんでした。

AAA部分を取得することは可能でしょうか。
イメージはFiledialogでファイルを開き、該当ファイルが使用中であれば使用者の名前を取得、と言った流れです。

Answer 1

テスト環境がないので確認できていません。

    Dim f, t, b, u
    With CreateObject("Scripting.FileSystemObject")
        f = .BuildPath(ActiveWorkbook.Path, "\~$" & ActiveWorkbook.Name)
        t = .GetTempName
        .CopyFile f, t
        b = .OpenTextFile(t).ReadAll
        .DeleteFile t
    End With
    
    u = Trim(Mid(b, 2, InStr(b, Chr(19)) - 2))
    MsgBox u

Comments

[ma-sato]

ありがとうございます。
業務時に使用していますので確認が少し遅れます。
確認できるタイミングで見たいと思います。

[ma-sato]

提示していただいたコードで確認しましたが。
CreateObject("Scripting.FileSystemObject")
の部分と
u = Trim(Mid(b, 2, InStr(b, Chr(19)) - 2))
の部分を一部修正したら動作しました。
やりたかったことができました。

システムファイルをコピーするのは盲点でした。

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