ありがとうございます!
見させていただいたのですが言語も違うようですし
私には難易度が高すぎて^^;
下記方法を見つけたので、なんとか解決しました!
Dim Service As Object, PrcSet As Object, Prc As Object
Set Service = _
CreateObject("WbemScripting.SWbemLocator").ConnectServer
Set PrcSet = Service.ExecQuery("Select * From Win32_Process")
お礼
ありがとうございます! 見させていただいたのですが言語も違うようですし 私には難易度が高すぎて^^; 下記方法を見つけたので、なんとか解決しました! Dim Service As Object, PrcSet As Object, Prc As Object Set Service = _ CreateObject("WbemScripting.SWbemLocator").ConnectServer Set PrcSet = Service.ExecQuery("Select * From Win32_Process")