A script that forces a process to kill with vbs

On Error Resume Next 
'vbs code start ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub Close_Process(ProcessName) 
On Error Resume Next 
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ 'Loop process
           if Ucase()=Ucase(ProcessName) then 
                  
           end if 
     next 
end sub 
Close_Process("")