‘* Использование моникера 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
Вернуться к статье
‘* Использование 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
Вернуться к статье
Вернуться к статье
|
|
