lparameters tcComputer local lcComputer, loWMIService, loProcess, loProcesses lcComputer = Iif(Vartype(tcComputer) = 'C' and not Empty(tcComputer), tcComputer, '.') loWMIService = GetObject("winmgmts://" + lcComputer + "/root/cimv2") loProcesses = loWMIService.ExecQuery("SELECT * FROM Win32_Process") For Each loProcess in loProcesses with loProcess ? .Name, .ExecutablePath, .caption, .commandline, Ctot(Transform(.CreationDate, '@R 9999-99-99T99:99:9999')) endwith Next