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