【ExcelVBA】 GetObject("winmgmts:").ExecQueryで取得したプロセスIDの処理を終了するまでに待機させる方法をお聞かせください

Question

ご覧いただきありがとうございます。
ExcelVBAのプロセス制御の件でわからないことがありますので質問させていただきます。
ぜひともアドバイスをいただければと思います。

現状と実現したいこと

Windows10-Pro-64bitで、ExcelVBAとBATファイルを連携させたものを組み込んでおります。

（Teratailに投稿して差し支えないように簡素にアレンジしました）
現状と目的について、下図で説明させていただきます。

＝＝＝＝＝＝＝ご指摘による補足
BATファイルは、他チームが開発したもので改変できないものとします。

発生している問題

GetObject("winmgmts:").ExecQueryで、いきなりプロセスID(cmd.exe)を取得するのが、正当なやり方かどうかが見えてこないですが。
取得したプロセスID(cmd.exe)が、終了するまで待機させる方法が見つからないのが問題点です。

該当のソースコード

★hoge.xlsm　(VBA本体)

Sub ボタン1_Click()

    Dim wsh As Object
    Set wsh = CreateObject("Wscript.Shell")
    Dim retn As Long

    'ここでhoge1.batをRun(cmd.exe)で起動。（hoge2.batを呼び出し後すぐに消失）
    retn = wsh.Run("C:\hoge1.bat", 1, True)


    Dim objWk       As Object
    Dim objXlsProc As Object

    'hoge1.batから自動的に呼び出されたhoge2.bat(cmd.exe)のプロセスIDを取得したい
    Set objWk = GetObject("winmgmts:").ExecQuery("SELECT Handle FROM Win32_Process WHERE Name = 'cmd.exe'")
    For Each objXlsProc In objWk
        Debug.Print objXlsProc.Handle
        

    Next

'''''''''[ここでのTODO]
'''''''''objXlsProc.HandleでプロセスIDを取得して、このプロセスが
''''''''''処理終了するまでここのタイミングでWAITさせたいのが目的です。

End Sub

★hoge1.bat

@echo off
TIMEOUT 5
START C:\hoge2.bat

★hoge2.bat

TIMEOUT 10
echo "End"

参考

（１）https://okwave.jp/qa/q655810.html
（２）https://teratail.com/questions/36610
（３）https://www.moug.net/tech/exvba/0150034.html

Answer 1

hoge2.batに手を入れられるのなら、

TIMEOUT 10
echo "End"
waitfor /si hogehoge

にすれば、Win32_Processを調べるなど不要で、単に、

xxx = wsh.Run("waitfor hogehoge", 0, True)

を実行すれば、waitfor /si hogehogeが実行されるまで待ちます。

ただし、順番が前後すると無限に待つことになってしまいますが、hoge1.batがhoge2.batを起動するまで時間がかかるので、すぐに実行しておけば大丈夫かと。

#追記
一定時間ごとに実行中かどうか調べる。

Do While True
    running = False
    For Each proc In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where Name='cmd.exe'")
        If Instr(proc.CommandLine,"hoge2.bat") Then running = True '大文字小文字に注意
    Next
    If Not Running Then Exit Do
    数秒待つ 'VBAで待つ方法はいろいろあるので、どれか適当に
Loop

Comments

[milton_rb4life]

ご指摘とご提案、ありがとうございます。
このBATファイルですが、他チームが開発したもので改変できないのが問題となっている根本となります。
本当に申し訳ございません。