loCIMV2 = GetObject("winmgmts://localhost/root/cimv2") loProcesses = loCimv2.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId = 2756") For Each objProcess in loProcesses objProcess.Terminate(0) NextOr, if you want to kill all instances of an exe, you can try:
loCIMV2 = GetObject("winmgmts://localhost/root/cimv2") loProcesses = loCimv2.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'AcroRd32.exe'") For Each objProcess in loProcesses objProcess.Terminate(0) NextI think this should work for both XP and 2000, although I do not have 2000 to test, additionally with little modification you can kill remote processes.