Kill running processes on any other machine (over the network) using Delphi?

Question

How can I kill the current process on some other machine (over the network) using Delphi?

Answer 1

All you need can be found on The Road to Delphi , it is just a blogdd on how to do this on November 6th, check this link WMI Tasks using Delphi – Processes .

Answer 2

You can use the WTSTerminateProcess API or use the Jwscl (Windows Security Library) Terminal Server ( TJwWTSProcess offers the Terminate method).

An example of a small code:

 var TS: TJwTerminalServer; begin TS := TJwTerminalServer.Create('Remote'); try if TS.EnumerateProcess then begin for i := 0 to TS.Processes.Count -1 do begin if TS.Processes[i].Name = 'notepad.exe' then begin TS.Processes[i].Terminate; end; end; end; finally TS.Free; end; end;