Врезка 1

Листинг 1. Winmgmts.vbs.

?* Использование моникера winmgmts и VBScript GetObject для доступа к WMI
strComputer = «tmtowtdi»
strProcsToKill = «notepad.exe»
?* Шаг 1. Подключение к WMI на целевом компьютере.
?* Шаг 2. Извлечь экземпляры класса Win32_Process.
BEGIN CALLOUT A
Set wbemObjectSet = _ 
 GetObject(«winmgmts://» & strComputer).InstancesOf(«Win32_Process»)
END CALLOUT A
?* Шаг 3. Просмотр SWbemObjectSet, содержащего экземпляры
?* SWbemObjects, которые в данном примере являются объектами Win32_Process.
?* Вывести значения ProcessID and Name для каждого экземпляра процесса
?* и прервать выполнение всех процессов, чьи имена Name совпадают с значением
?* переменной strProcsToKill («notepad.exe» в этом примере). 
BEGIN CALLOUT B
For Each wbemObject In wbemObjectSet
 WScript.Echo wbemObject.ProcessID & «: « & wbemObject.Name
 If LCase(wbemObject.Name) = strProcsToKill Then wbemObject.Terminate
Next
END CALLOUT B

Листинг 2. Locator.vbs.

?* Использование SWbemLocator и VBScript CreateObject для доступа к WMI
strComputer = «tmtowtdi»
strProcsToKill = «notepad.exe»
?* Создать указатель на объект SWbemLocator для подключения
?* к WMI на целевом компьютере с необязательной аутентификацией.
Set wbemLocator = CreateObject(«WbemScripting.SWbemLocator»)
?* Шаг 1. Подключение к WMI на целевом компьютере.
Set wbemServices = wbemLocator.ConnectServer(strComputer)
?* Шаг 2. Извлечь экземпляры класса Win32_Process.
Set wbemObjectSet = wbemServices.InstancesOf(«Win32_Process»)
?* Шаг 3. Просмотр SWbemObjectSet, содержащего экземпляры
?* SWbemObjects, которые в данном примере являются объектами Win32_Process.
?* Вывести значения ProcessID and Name для каждого экземпляра процесса
?* и прервать выполнение всех процессов, чьи имена Name совпадают с значением
?* переменной strProcsToKill («notepad.exe» в этом примере). 
For Each wbemObject In wbemObjectSet
WScript.Echo wbemObject.ProcessID & «: « & wbemObject.Name
 If LCase(wbemObject.Name) = strProcsToKill Then wbemObject.Terminate
Next