Function RevisePriority(ByVal p)
Dim objWMIService, colProcesses, prt
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'Client.exe'")
For Each objProcess in colProcesses
objProcess.Terminate()
End Function作者: jneyxwry 时间: 2007-12-19 00:14