VBで実行中のEXEファイルの情報を取得したい

質問

WindowsXPでVB6.0でプログラムを組んでますが、その中であるEXEファイルを起動するようにしています。しかし、そのEXEが起動している場合は二重起動を避けるようにしたいのです。
使っているPCで起動されているいくつかのEXEから目的のEXEが起動しているかどうかを知りたいです。
FindWindowを使うには開いているファイル名まで変数の中に渡さなければならないため使えません。(開いているファイル名は不明として下さい)
タスクマネージャーの「プロセス」タブのイメージ名に出てくるexeファイル名を取得できればいいのですが、方法をご存知の方おられませんか？

回答No.2

pkh4989 · ベストアンサー

ご参考にしてください。
Sub ProcessID()
　　Dim objSet
　　Dim obj
　　Dim Locator
　　Dim Server
　　'
　　Set Locator = CreateObject("WbemScripting.SWbemLocator")
　　Set Server = Locator.ConnectServer
　　Set objSet = Server.ExecQuery("Select * From Win32_Process")
　　'
　　For Each obj In objSet
　　　　MsgBox "プロセス名=" & obj.Caption
　　Next
　　Set objSet = Nothing
　　Set obj = Nothing
　　Set Server = Nothing
　　Set Locator = Nothing
End Sub

お礼

目的の情報が取得できました。ありがとうございました。