Script listar todos usuários com o processo em aberto

No caso do exemplo ele lista o “explorer.exe” podendo alterar para o processo desejado.

Option Explicit
Dim oWMI, oProcess
Dim sComputer, sWMIQuery, sUser, sDomain, sAllUsers
Dim colProcesses
sComputer = “.”
Set oWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!//” & sComputer & “/root/cimv2”)
sWMIQuery = “SELECT * FROM Win32_Process WHERE Name = ‘explorer.exe'”
Set colProcesses = oWMI.ExecQuery(sWMIQuery)
For Each oProcess In colProcesses
oProcess.GetOwner sUser, sDomain
sAllUsers = sAllUsers & sUser & vbCrLf
Next
Msgbox sAllUsers, vbOkOnly, “Logged on Users”

Deixe uma resposta