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

/* Имя: DelUserAndGroup.js */

/* Язык: JScript */

/* Описание: Удаление пользователя и группы компьютера */

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

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

var

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

UserStr = "XUser", //Имя удаляемого пользователя

GroupStr = "XGroup", //Имя удаляемой группы

WshShell; //Объект WshShell

//Инициализируем константы для диалоговых окон

var vbCritical=16,vbInformation=64;

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

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

//Создаем объект WshShell

WshShell = WScript.CreateObject("WScript.Shell");

/************* Удаление пользователя ***********************/

IsError=false;

try {

//Удаляем пользователя

ComputerObj.Delete("user", UserStr);

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

if (e != 0) {

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

IsError=true;

Mess="Ошибка при удалении пользователя "+UserStr+"\nКод ошибки: " + e.number + "\nОписание: " + e.description;

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

}

}

if (!IsError) {

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

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";