以下是引用freeforever在2007-4-7 10:09:58的发言: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colProcessList = objWMIService.ExecQuery("select * FROM Win32_Process") Dim mProcID As Long For Each objProcess In colProcessList If LCase(Trim(objProcess.Name)) = "explorer.exe" Then mProcID = OpenProcess(1&, -1&, objProcess.ProcessID) '强行终止test进程 TerminateProcess mProcID, 0& End If Next