vb.net 终止进程 vbs结束进程

sub Close_Process(ProcessName)
On Error Resume Next
     for each ps in getobject("winmgmts://./root/cimv2:win32_process").instances_  '循环进程
           if Ucase(ps.name)=Ucase(ProcessName)  then  '关闭QQ,也可以改成其它的程序
                 ps.terminate
           end if
     next
end sub