Windows Script Host для Windows 2000/XP

Листинг 11.2. Создание нового локального пользователя на рабочей станции

/********************************************************************/
/* Имя: AddUser.js */
/* Язык: JScript */
/* Описание: Создание нового пользователя компьютера */
/********************************************************************/
//Объявляем переменные
var
ComputerObj, //Экземпляр объекта Computer
 UserObj, //Экземпляр объекта User
 UserStr = "XUser"; //Имя создаваемого пользователя

//Связываемся с компьютером 404_Popov
ComputerObj = GetObject("WinNT://404_Popov");
//Создаем объект класса User
UserObj=ComputerObj.Create("user",UserStr);
//Добавляем описание созданного пользователя
UserObj.Description="Этот пользователь создан из сценария WSH";
//Сохраняем информацию на компьютере
UserObj.SetInfo;
/************* Конец *********************************************/

Группа на рабочей станции создается аналогичным образом (листинг 11.3). 

Листинг 11.3. Создание новой локальной группы на рабочей станции

/********************************************************************/
/* Имя: AddGroup.js */
/* Язык: JScript */
/* Описание: Создание новой группы на компьютере */
/********************************************************************/
//Объявляем переменные
var
 ComputerObj, //Экземпляр объекта Computer
 GroupObj, //Экземпляр объекта Group
 GroupStr = "XGroup"; //Имя создаваемой группы

//Связываемся с компьютером 404_Popov
ComputerObj = GetObject("WinNT://404_Popov");
//Создаем объект класса Group
GroupObj=DomainObj.Create("group", GroupStr);
//Сохраняем информацию на компьютере
GroupObj.SetInfo;
/************* Конец *********************************************/

Вывод информации о пользователе и смена его пароля

В листинге 11.4 приведен сценарий UserInfo.js, в котором выводится на экран информация о созданном в сценарии AddUser.js пользователе XUser (рис. 11.2).

Рис. 11.2. Информация о локальном пользователе XUser

Для получения этой информации мы производим связывание с нужным пользователем, т.е. создаем экземпляр UserObj объекта User и читаем данные из полей этого объекта:

//Связываемся с пользователем XUser компьютера 404_Popov
UserObj=GetObject("WinNT://404_Popov/XUser, user");
//Формируем строку с информацией о пользователе
SInfо="Информация о пользователе XUser:\n";
SInfо+="Имя: "+UserObj.Name+"\n";
SInfо+="Описание: "+UserObj.Description+"\n";
//Выводим сформированную строку на экран
WScript.Echo(SInfo);

После этого в сценарии выдается запрос на изменение пароля пользователя XUser. Для этого мы используем метод Popup объекта WshShell:

//Создаем объект WshShell
WshShell=WScript.CreateObject("WScript.Shell");
//Запрос на изменение пароля
Res=WshShell.Popup("Изменить пароль у XUser?", 0, "Администрирование пользователей", vbQuestion+vbYesNo);

В случае утвердительного ответа пароль изменяется с помощью метода SetPassword объекта User, после чего все произведенные изменения сохраняются на рабочей станции с помощью метода SetInfo:

if (Res==vbYes) {
 //Нажата кнопка "Да"
 //Устанавливаем новый пароль
 UserObj.SetPassword("NewPassword");
 //Сохраняем сделанные изменения
 UserObj.SetInfо;
 WScript.Echo("Пароль был изменен");
}

Листинг 11.4. Вывод информации о пользователе компьютера и смена его пароля

/********************************************************************/
/* Имя: UserInfo.js */
/* Язык: JScript */
/* Описание: Вывод информации о пользователе компьютера и смена */
/* его пароля */
/********************************************************************/
var
 UserObj, //Экземпляр объекта User
 Res, //Результат нажатия кнопки в диалоговом окне
 SPassword, //Строка с новым паролем
 SInfo; //Строка для вывода на экран
//Инициализируем константы для диалогового окна