strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'lmt_server.exe'")
For Each objProcess in colProcessList
msgbox "每杀掉一个,我就出现一次"
objProcess.Terminate()
Next