>lcExe = 'Notepad.Exe' > >loLocator = createobject('WBEMScripting.SWBEMLocator') >loWMI = loLocator.ConnectServer() >loWMI.Security_.ImpersonationLevel = 3 >loProcess = loWMI.ExecQuery([SELECT * FROM Win32_Process WHERE Name ='] +lcExe=']) >create cursor curUsers (username c(20), pcname c(20)) >if loProcess.Count>0 > for each loProcess in loProcess >**** get user name >**** update curUsers > endfor >endif >>