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
