Андрей Попов - Windows Script Host для Windows 2000/XP

Mess="Пользователь "+UserStr+" удален";

WshShell.Popup(Mess,0,"Удаление пользователя",vbInformation);

}

/************* Удаление группы ***********************/

IsError=false;

try {

//Удаляем группу

ComputerObj.Delete("group", GroupStr);

} catch (e) { //Обрабатываем возможные ошибки

if (e != 0) {

//Выводим сообщение об ошибке

IsError=true;

Mess="Ошибка при удалении группы "+GroupStr+"\nКод ошибки: " + e.number+"\nОписание: " + e.description;

WshShell.Popup(Mess,0,"Удаление группы",vbCritical);

}

}

if (!IsError) {

//Все в порядке

Mess="Группа "+GroupStr+" удалена";

WshShell.Popup(Mess,0,"Удаление группы",vbInformation);

}

/************* Конец *********************************************/

Принцип формирования списка всех групп рабочей станции остается тем же, что и для рассмотренного выше списка всех доступных доменов локальной сети, однако первоначальное связывание нужно производить не с корневым объектом класса Namespace, а с нужным объектом класса Computer.

В приведенном в листинге 11.6 сценарии ListAllGroups.js для связывания с компьютером 404_Popov мы создаем объект-контейнер ComputerObj, в котором содержатся все объекты рабочей станции 404_Popov:

//Связываемся с компьютером 404_Popov

ComputerObj = GetObject("WinNT://404_Popov");

Затем в сценарии создается объект Enumeratorдля доступа к элементам коллекции ComputerObjи инициализируется переменная SList, в которой будет храниться список всех локальных групп рабочей станции:

//Создание объекта Enumerator для доступа к коллекции ComputerObj

E=new Enumerator(ComputerObj);

SList="Ha компьютере 404_Popov созданы группы:\n";

После этого в цикле whileиз коллекции ComputerObjвыбираются лишь объекты класса Group, т.е. те объекты, у которых в поле Classзаписана строка " Group"; в SListзаносятся названия групп из поля Name:

while (!E.atEnd()) {

//Извлекаем текущий элемент коллекции

GroupObj=E.item();

//Выделение объектов класса Group

if (GroupObj.Class == "Group")

//Формируем строку с именами групп

SList+=GroupObj.Name+"\n";

//Переход к следующему элементу коллекции

E.moveNext();

}

Рис. 11.5.Список всех локальных групп, определенных на рабочей станции

После окончания цикла сформированная строка выводится на экран (см. рис. 11.5):

//Выводим информацию на экран

WScript.Echo(SList);

/********************************************************************/

/* Имя: ListAllGroups.js */

/* Язык: JScript */

/* Описание: Вывод на экран имен всех групп заданного компьютера */

/********************************************************************/

//Объявляем переменные

var

ComputerObj, //Экземпляр объекта Computer

E, //Объект Enumerator

SList; //Строка для вывода на экран

//Связываемся с компьютером 404_Popov

ComputerObj = GetObject("WinNT://404_Popov");

//Создание объекта Enumerator для доступа к коллекции ComputerObj

E=new Enumerator(ComputerObj);

SList="На компьютере 404_Popov созданы группы:\n";

//Цикл по всем элементам коллекции объектов компьютера

while (!E.atEnd()) {

//Извлекаем текущий элемент коллекции

GroupObj=E.item();

//Выделение объекты класса Group

if (GroupObj.Class == "Group")

//Формируем строку с именами групп

SList+=GroupObj.Name+"\n";

//Переход к следующему элементу коллекции

E.moveNext();

}

//Выводим информацию на экран

WScript.Echo(SList);

/************* Конец *********************************************/

В листинге 11.7 приведен сценарий ListUsers.js, в котором формируется список всех пользователей, входящих в группу "Пользователи" на компьютере 404_Popov.

Для связывания с группой "Пользователи" рабочей станции 404_Popov создается объект GroupObj; коллекция пользователей этой группы формируется с помощью метода Members()объекта Group:

//Связываемся с группой Пользователи компьютера 404_Popov

GroupObj=GetObject("WinNT://404_Ророv/Пользователи,group");

//Создание объекта Enumerator для доступа к коллекции пользователей

E=new Enumerator(GroupObj.Members());

После инициализации переменной SListмы обрабатываем в цикле whileвсе элементы полученной коллекции; на каждом шаге цикла к переменной SListдобавляется имя текущего пользователя (поле Nameв объекте user— текущем элементе коллекции):

SList="Bce пользователи группы Пользователи на компьютере 404_Popov:\n";

//Цикл по всем элементам коллекции пользователей

while (!E.atEnd()) {

//Извлечение элемента коллекции класса User

UserObj=Е.item();

//Формируем строку с именами пользователей

SList+=UserObj.Name+"\n";

//Переходим к следующему элементу коллекции

E.moveNext();

}

После выхода из цикла сформированная строка SListвыводится на экран (рис. 11.6):

//Выводим информацию на экран

WScript.Echo(SList);

Рис. 11.6.Список всех пользователей заданной группы

/********************************************************************/

/* Имя: ListUsers.js */

/* Язык: JScript */

/* Описание: Вывод на экран имен всех пользователей заданной группы */

/********************************************************************/

//Объявляем переменные

var

GroupObj, //Экземпляр объекта Group

SList, //Строка для вывода на экран

E, //Объект Enumerator

UserObj; //Экземпляр объекта User

//Связываемся с группой Пользователи компьютера 404_Popov

GroupObj=GetObject("WinNT://404_Popov/Пользователи,group");

//Создание объекта Enumerator для доступа к коллекции пользователей

E=new Enumerator(GroupObj.Members());

SList="Все пользователи группы Пользователи на компьютере 404_Popov:\n";

//Цикл по всем элементам коллекции пользователей

while (!E.atEnd()) {

//Извлечение элемента коллекции класса User

UserObj=E.item();

//Формируем строку с именами пользователей

SList+=UserObj.Name+"\n";

//Переходим к следующему элементу коллекции

E.moveNext();

}

//Вывод информации на экран

WScript.Echo(SList);

/************* Конец *********************************************/