Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

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


<-- Назад Читать дальше -->

Упражнение 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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru