strComputer="." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='qq.exe' ") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
next