Açık Olan Tüm Programların İsimlerini Listelemek

[asi_kral]

Merhaba
Windowsta açık olan tüm programların listesini nasıl alabilirim.
Örneğin;
Microsoft Outlook
WhatsApp
TeamViewer
Görev Zamanlayıcı vb.

 

[Haluk]

Sub Test()
    Dim strComputer As String
    Dim objServices As Object, objProcessSet As Object, Process As Object
    Dim objDic As Object

    Set objDic = CreateObject("Scripting.Dictionary")

    strComputer = "."

    Set objServices = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set objProcessSet = objServices.ExecQuery("SELECT Name FROM Win32_Process", , 48)

    For Each Process In objProcessSet
       If Not objDic.exists(Process.Name) Then objDic.Add Process.Name, Process.Name
    Next
    
    Range("A1").Resize(objDic.Count) = Application.Transpose(objDic.keys)

    Set objProcessSet = Nothing
    Set objDic = Nothing
End Sub

.

 

[asi_kral]

Sub Test()
    Dim strComputer As String
    Dim objServices As Object, objProcessSet As Object, Process As Object
    Dim objDic As Object

    Set objDic = CreateObject("Scripting.Dictionary")

    strComputer = "."

    Set objServices = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set objProcessSet = objServices.ExecQuery("SELECT Name FROM Win32_Process", , 48)

    For Each Process In objProcessSet
       If Not objDic.exists(Process.Name) Then objDic.Add Process.Name, Process.Name
    Next
   
    Range("A1").Resize(objDic.Count) = Application.Transpose(objDic.keys)

    Set objProcessSet = Nothing
    Set objDic = Nothing
End Sub

.

Teşekkürler.