| Guillaume Nodet | 05fac96 | 2009-04-27 10:01:58 +0000 | [diff] [blame^] | 1 | '=============================================================================== |
| 2 | ' |
| 3 | ' Licensed to the Apache Software Foundation (ASF) under one or more |
| 4 | ' contributor license agreements. See the NOTICE file distributed with |
| 5 | ' this work for additional information regarding copyright ownership. |
| 6 | ' The ASF licenses this file to You under the Apache License, Version 2.0 |
| 7 | ' (the "License"); you may not use this file except in compliance with |
| 8 | ' the License. You may obtain a copy of the License at |
| 9 | ' |
| 10 | ' http://www.apache.org/licenses/LICENSE-2.0 |
| 11 | ' |
| 12 | ' Unless required by applicable law or agreed to in writing, software |
| 13 | ' distributed under the License is distributed on an "AS IS" BASIS, |
| 14 | ' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 15 | ' See the License for the specific language governing permissions and |
| 16 | ' limitations under the License. |
| 17 | ' |
| 18 | '=============================================================================== |
| 19 | |
| 20 | Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") |
| 21 | Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessId = ${pid}") |
| 22 | intRetVal = 1 |
| 23 | For Each objProcess in colProcessList |
| 24 | objProcess.Terminate() |
| 25 | intRetVal = 0 |
| 26 | Next |
| 27 | WScript.Quit(intRetVal) |