Упражнение 4. Работа с массивами и циклами

Массивы в VBScript: самостоятельная работа

Скопируйте на свой компьютер файл \\London\templates\loops_and_arrays.vbs и откройте его в Primal Script. Этот скрипт подключается к указанному вами компьютеру и получает оттуда список запущенных процессов.

Измените скрипт таким образом, чтобы он прошел по всем элементам массива colItems и вывел для них информацию:

1) об имени процесса (свойство Name)

2) о исполняемом файле с указанием полного пути (свойство ExecutablePath)

3) о максимальном объеме используемой оперативной памяти с момента запуска (свойство PeakWorkingSetSize);

4) о приоритете выполнения (свойство Priority)

Примечание:

пример команды для вывода значения:

WScript.Echo элемент_массива.свойство

для перебора всех элементов массива воспользуйтесь конструкцией for each.

Код скрипта loops_and_arrays выглядит так:

On Error Resume Next
strComputer = InputBox ("Введите имя компьютера")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)

Ответ к упражнению 4. Работа с массивами и циклами

Итоговый код скрипта может быть таким:

On Error Resume Next

strComputer = InputBox ("Введите имя компьютера")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)

For Each colItem In colItems

      MsgBox colItem.Name & " " & colItem.ExecutablePath & " " & colItem.PeakWorkingSetSize & " " & colItem.Priority

Next

Получить учебные материалы по этому курсу