Пример 8:  Определение всех учетных записей пользователей, входящих в домен

     

Set objDomain=GetObject("WinNT:")

    For Each domain_element In objDomain

    Domain_Name= domain_element.Name

    Next

Set obj=GetObject("WinNT://" & Domain_Name)

    obj.filter=array("user")

           For Each element In obj

           temp =temp+element.name+";    "

           Next

Создание, переименование и удаление объектов в домене

В Active Directory существует три типа встроенных объектов: учетная запись пользователя; группа, которая может быть локальной или глобальной; учетная запись компьютера. С учетной записью пользователя можно проделывать следующие операции: создавать, удалять, переименовывать; группу можно создавать и удалять; учетную запись компьютера можно создавать и удалять.

Создание объектов

Создание учетной записи пользователя осуществляется с помощью функции Create(). Приведем пример, в котором создается учетная запись пользователя с именем UserName. При создании скрипта манипуляции с паролем и другими параметрами учетной записи должны производиться, когда учетная запись существует, т.е. после применения метода: SetInfo.

Пример 9

     

Set objDomain=GetObject("WinNT:")

    For Each domain_element In objDomain

    Domain_Name= domain_element.Name

    Next

           Set obj=GetObject("WinNT://" & Domain_Name)

                 NewUser="UserName"

                 Set CU=obj.Create("User",NewUser)

                 CU.SetInfo

Создание учетной записи группы отличается тем, что необходимо указать тип группы с помощью функции Put(). Локальной группе соответствует значение «4», глобальной – «2».

Пример 10. Создания локальной группы с именем GroupName

 

Set objDomain=GetObject("WinNT:")

    For Each domain_element In objDomain

    Domain_Name= domain_element.Name

    Next

           Set obj=GetObject("WinNT://" & Domain_Name)

                 NewGroup="GroupName"

                 Set CG=obj.Create("Group",NewGroup)

                 CG.Put "groupType", 4

                 CG.SetInfo

 

Создание учетной записи компьютера аналогично созданию учетной записи пользователя, за исключением следующего:

n  объект должен быть создан с использованием класса computer;

n  у объекта должен быть установлен пользовательский флаг Ошибка! Недопустимый объект гиперссылки. (см. раздел «Манипулирование пользовательскими флагами функцией UserFlags»);

n  начальный пароль учетной записи должен соответствовать имени компьютера, введенного строчными буквами. Результата добиваются с помощью функции LCase().

 

Пример 11. Создания учетной записи компьютера с именем ComputerName

 

Set objDomain=GetObject("WinNT: ")

    For Each domain_element In objDomain

    Domain_Name= domain_element.Name

    Next

           Set obj=GetObject("WinNT://" & Domain_Name)

                 NewComputer="ComputerName"

                 Set CC=obj.Create("Computer", UCase(NewComputer))

           CC.SetInfo

Set CAccount= GetObject("WinNT://" & ї

    Domain_Name&"/"& NewComputer&"$,user")

CAccount.Put "UserFlags", (CAccount.Get("UserFlags") Or &H1000)

           CAccount.SetPassword(LCase(NewComputer))

---

Предыдущая страница	Оглавление	Следующая страница
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020] [021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040] [041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060] [061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080] [081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] [153] [154] [155] [156] [157]