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

В сценарии 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. Создание новой локальной группы на рабочей станции