'=============================================================
'=                                                           =
'=  Questo Script permette d'individuare il proprietario di  =
'=  ciascun processo in esecuzione su di una macchina. Per   =
'=  lanciarlo non č necessario essere amministratori della   =
'=  macchina. Per eseguire lo script scrivere alla command   =
'=  prompt il comando: cscript psown.vbs                     =
'=                                                           =
'=  In alternativa si puņ creare un batch che esegue il      =
'=  comando: cscript psown.vbs; di modo che possa essere     =
'=  interpretato direttamente dalla command prompt.          =
'=                                                           =
'=============================================================


strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")

For Each objProcess in colProcessList
  if objProcess.ProcessID <> "0" AND objProcess.Name <> "System" Then  
     colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
     Wscript.Echo "Processo: " & objProcess.Name & " --> " & " PID: " & objProcess.ProcessID & " --> " & _
                  " Owner: " & strUserDomain & "\" & strNameOfUser & "."
  End If
Next