
List all Running Apps w2k
If there's one in particular to kill, you don't need to list them all...
pgm = "notepad.exe"
set wmi = getobject("winmgmts:")
wql = "select * from win32_process " _
& "where name='" & pgm & "'"
set processes = wmi.execquery(wql)
msgbox processes.count & " instance(s) of " & pgm
for each process in processes
process.terminate
next
--
Michael Harris
Microsoft.MVP.Scripting
--
Please do not email questions - post them to the newsgroup instead.
--
Quote:
> Can someone point me to a proceedure to list all running apps in
> Windows 2000 and kill a selected one?
> Thanks,
> Roy