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>
>>>>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 >>>>