lparameters tcProcessID local loLocator, loWMI, loProcesses, loProcess if Vartype(tcProcessID) = 'C' and not Empty(tcProcessID) loLocator = Createobject('WBEMScripting.SWBEMLocator') loWMI = loLocator.ConnectServer() loProcesses = loWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" + alltrim(tcProcessID) + "'") For Each loProcess in loProcesses loProcess.Terminate(0) Next endif returnThat is, using SWBEMLocator instead of monikers