lcComputer = '.' loWMIService = Getobject('winmgmts:' ; + '{impersonationLevel=impersonate}!\\' + lcComputer + '\root\cimv2') colProcessList = loWMIService.ExecQuery ; ('Select * from Win32_Process') Create Cursor Process (Name c(20),Id i,Thread i,pagefile i,pagefault i,workingset c(20)) Index On Name Tag Name For Each loProcess In colProcessList Insert Into Process (Name,Id,Thread,pagefile,pagefault,workingset); VALUES (loProcess.Name,loProcess.ProcessID,loProcess.ThreadCount,loProcess.PageFileUsage,; loProcess.pagefaults,loProcess.WorkingSetSize) Next BROWSE normal>Thanks Mike, but how?
>>>myWord = CreateObject("Word.Application") >>>**** do a Mail merge >>>**** close all additional Word Windows as Main Document & DataSource >>>DO WHILE FindWindow(0, "MicroSoft Word - Form Letters") # 0 && But "that caption now is varying :o((( >>> DO EVENTS >>>ENDDO >>>