Çalışan programları listelemek

[mozdem]

Görev yöneticisinde Uygulamalar bölümünde görünen (çalışan) programları/dosyaları nasıl listeleyebiliriz. Bu sitede araştırma yaptım. aşağıdaki koddan yararlanmaya çalıştım ama yapamadım. yardımlarınızı bekliyorum. (listelemek olmayabilir. Uygulama çalışıyor, Yada kapalı mesaj vermesi yeterli)

Sub word_kapat()
On Error Resume Next
Set wrd = GetObject(, "word.Application")
If Err.Number <> 0 Then
MsgBox "Dosya kapalı.", vbInformation
Else:
MsgBox "Açık"
End If
End Sub

 

[Haluk]

Sub Test()
'   Haluk - 16/10/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim strComputer As String, objWMI As Object
    Dim objItem As Object, colItems As Variant, i As Integer
    
    Range("A1:B" & Rows.Count) = ""
    
    Range("A1:B1") = Array("Process ID", "Program")
    strComputer = "."

    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_Process", , 48)

    i = 2
    For Each objItem In colItems
         ActiveSheet.Cells(i, 1).Value = objItem.ProcessId
         ActiveSheet.Cells(i, 2).Value = objItem.Name
         i = i + 1
    Next
End Sub

.

 

[mozdem]

Teşekkür ederim