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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.