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

В сценарии AddUser.vbs, который приведен в листинге 8.2, для создания нового пользователя на рабочей станции выполняются следующие шаги. Во-первых, производится связывание с нужным компьютером (в нашем примере это рабочая станция с именем Popov), то есть создается экземпляр objComputer объекта Computer:

Set objComputer = GetObject("WinNT://Popov")

Во-вторых, создается экземпляр UserObj объекта User для нового пользователя. Для этого используется метод Create() объекта Computer ; в качестве параметров этого метода указывается имя класса "user" и имя создаваемого пользователя (в нашем примере это имя хранится в переменной strUser ):

Set objUser = objComputer.Create("user",strUser)

Замечание

Для создания пользователя или группы у вас в системе должны быть назначены права, которыми обладает администратор.

Для созданного пользователя в свойство Description мы помещаем текст описания:

UserObj.Description="Этот пользователь создан из сценария ADSI"

Для сохранения информации о новом пользователе в базе данных пользователей вызывается метод SetInfo объекта User.

'********************************************************************

' Имя: AddUser.vbs

' Язык: VBScript

' Описание: Создание нового пользователя компьютера

'********************************************************************

Option Explicit

 

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

Dim objComputer ' Экземпляр объекта Computer

Dim objUser ' Экземпляр объекта User

Dim strUser ' Имя создаваемого пользователя

 

' Задаем имя пользователя

strUser = "XUser"

' Связываемся с компьютером Popov

Set objComputer = GetObject("WinNT://Popov")

' Создаем объект класса User

Set objUser = objComputer.Create("user",strUser)

' Добавляем описание созданного пользователя

objUser.Description = "Этот пользователь создан из сценария ADSI"

 

' Сохраняем информацию на компьютере

objUser.SetInfo

'************* Конец *********************************************

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

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

'********************************************************************

' Имя: AddGroup.vbs

' Язык: VBScript

' Описание: Создание новой группы на компьютере

'********************************************************************

Option Explicit

 

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

Dim objComputer ' Экземпляр объекта Computer

Dim objGroup ' Экземпляр объекта Group

Dim strGroup ' Имя создаваемой группы

 

' Задаем имя пользователя

strGroup = "XGroup"

' Связываемся с компьютером Popov

Set objComputer = GetObject("WinNT://Popov")

' Создаем объект класса Group

Set objGroup = objComputer.Create("group",strGroup)

' Сохраняем информацию на компьютере

objGroup.SetInfo

'************* Конец *********************************************

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

<== предыдущая лекция | следующая лекция ==>
Связывание с нужным объектом каталога | Вывод информации о пользователе и смена его пароля


Дата добавления: 2018-03-01; просмотров: 87; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2018 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.007 сек.