Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_process") For Each objItem in colItems if objitem.ExecutablePath<>"" then strTXT=strTXT&objItem.Name&" | "&objitem.ExecutablePath&chr(10)&chr(13) end if Next msgbox strtxt