Foxers, does anyone have time to check/help me with this ?
My routine goes as follows
and I'm slowly losing my mind as to why so many clients are phoning me to
say that even though Excel is closed, it is
1 Still asking if ok to close it
2 OR getting an OLE something error
(trcask6 is a mem variable and if it returns "OPEN", it aborts the routine)
Is the loProcess.TERMINATE() version dependent ?
My system will run
DO KILLTHATAPP with 1 of the below params
PARAMETERS whatapp
DO case
CASE whatapp="IEXPLORE"
lcProcess = "IEXPLORE.EXE" && Process to be closed
CASE whatapp="NOTEPAD"
lcProcess = "NOTEPAD.EXE" && Process to be closed
CASE whatapp="EXCEL"
lcProcess = "EXCEL.EXE" && Process to be closed
ENDCASE
lcComputer = "."
loWMIService = GETOBJECT("winmgmts:" + "{impersonationLevel=impersonate}!\\"
+ lcComputer + "\root\cimv2")
colProcessList = loWMIService.ExecQuery ("Select * from Win32_Process")
IF TYPE('colProcessList') = "O"
FOR EACH loProcess IN colProcessList
IF ALLTRIM(UPPER(loProcess.NAME)) == ALLTRIM(UPPER(lcProcess))
rt=MESSAGEBOX(""+whatapp+" is open at the moment. Is it ok to close
it ? ",4+32+256,'')
IF rt=6
loProcess.TERMINATE()
ELSE
trcask6="OPEN"
endif
ENDIF
NEXT
ENDIF && IF TYPE('colProcessList') = "O"
RELEASE colProcessList, loWMIService
--
Regards
Sytze de Boer
Kiss Systems
Hamilton, NZ
Ph: 64-7-8391670, Mob:021 937611,
www.kiss.co.nz
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
