On Error Resume Next 
'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 
                 ps.terminate 
           end if 
     next 
end sub 
Close_Process("notepad.exe")