UWSCでファイルを開いているプロセスの情報を取得したい

Question

UWSCでopenfilesコマンドを使いファイルを開いているプロセスの情報を取得したいです。

コマンドプロンプトで以下のプログラムを実行すると、エラーメッセージが表示されます。

PRINT DOSCMD("openfiles /query /fo csv")

エラー: 対象となるシステムは 32 ビットの OS を実行している必要があります。

ビットを確認するためコマンドプロンプトで以下のコマンドを実行すると「AMD64」と表示され、UWSCでDOSCMD関数を使い同じコマンドを実行すると「x86」と表示されました。

C:\Users\username>echo %PROCESSOR_ARCHITECTURE%
AMD64

PRINT DOSCMD("echo %PROCESSOR_ARCHITECTURE%")
x86

UWSCで実行されるコマンドプロンプトはパスが通っているものかと思い、コマンドプロンプトでwhereコマンドを使いどのcmd.exeにパスが通っているのか確認したところ、以下のように32bit版だけでした。

C:\Users\username>where cmd.exe
C:\Windows\System32\cmd.exe

そこで64bit版があるディレクトリのパスを通し優先順位を32bit版より上にして「%PROCESSOR_ARCHITECTURE%」を取得してみても変化なく、openfilesコマンドを実行しても結果は同じでした。

C:\Users\username>where cmd.exe
C:\Windows\SysWOW64\cmd.exe
C:\Windows\System32\cmd.exe

そこでPowerShellでできないかと思ったのですが、こちらは結果を取得できないしエラーすら表示されませんでした。

PRINT POWERSHELL("openfiles /query /fo CSV")

コマンドプロンプト、PowerShellともUWSCを使わずに本体で実行した場合は結果が取得されます。

UWSCに管理者権限を付与して実行しても結果は同じでした。

DEF_DLL IsUserAnAdmin(): BOOLEAN: shell32.dll

IFB IsUserAnAdmin() <> FALSE THEN
    PRINT DOSCMD("openfiles /query /fo csv")
ENDIF

これ以上できることは思いつかないのですが、UWSCでopenfilesコマンドを実行することは不可能でしょうか？

回答よろしくお願いいたします。

Answer 1

32ビットのプロセスからはsystem32→syswow32のリダイレクトがあるからですね。
同じくリダイレクトでsysnativeがsystem32を指すはずなので
c:\windows\sysnative\openfiles.exeを叩いてみては。

Answer 2

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

WITH FSO
    DIM Folder = .GetSpecialFolder(TemporaryFolder)
    DIM folderspec = Folder.Path
    DIM filename = .GetTempName
    DIM path = .BuildPath(folderspec, filename)
ENDWITH

DIM Shell = CREATEOLEOBJ("Shell.Application")
Shell.FileRun()

DIM ID = GETID("ファイル名を指定して実行", "#32770")

SENDSTR(ID, "cmd /c openfiles /query /fo CSV > " + path)
CLKITEM(ID, "OK", CLK_BTN)
SLEEP(0.500)

REPEAT
    SLEEP(0.100)
UNTIL GETID("C:\WINDOWS\system32\cmd.exe", "ConsoleWindowClass") = -1

DIM FID = FOPEN(path, F_READ)
PRINT FGET(FID, F_ALLTEXT)
FCLOSE(FID)
FSO.DeleteFile(path)

Answer 3

まず、64bitOSでは64bitのopenfiles.exeを実行する必要があります。
32bitのopenfiles.exeを実行するとお書きのエラーになります。

UWSCは使ったこと無いですが、32bitアプリなのでしょう。
32bitアプリから64bitアプリのC:\Windows\System32\openfiles.exeを起動しても、32bit環境下であることを検知して内部的に32bitアプリであるC:\Windows\SysWOW64\openfiles.exeに差し替わるようです。
cmd.exeについても同様。

以下のように32bit版だけでした。

C:\Windows\System32\cmd.exeは64bitアプリですよ。ディレクトリ名に32が付いているのは歴史的経緯です。

UWSCで出来るかどうかわかりませんが、例えば64bit Rubyを経由して、

PRINT DOSCMD("ruby -e <#DBL>system('openfiles /query /fo csv')<#DBL>")

UWSCでなく32bitVBAから、Ruby経由64bit openfiles起動は出来ました。
Rubyでなくても、PythonとかCでもJavaでもよくて、非Microsoftの64bitアプリで他のコマンド(この場合openfiles)を実行できるプログラムなら良いです。

Comments

[akitasoran]

Ruby経由でも「エラー: 対象となるシステムは…」と表示され実行することはできませんでした。

でも回答を見て確かに他の言語を経由して取得すればできそうだなと思い、「ファイル名を指定して実行」で以下を実行することで結果を得ることができました。

cmd /c openfiles /query /fo CSV

Markdownが使えるかわからなかったので、全体は解決方法のところに記載しておきます。

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

[otn]

> Ruby経由でも「エラー: 対象となるシステムは…」と表示され実行することはできませんでした。
32bit版Rubyを使ったんですかね。今は、64bit版Rubyを使っても問題は無いと思います。