Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

Из объектной модели протокола WinNT видно, что в пространстве имен NameSpace существует всего два класса: Domain и Computer. Рассмотрим каждый из этих классов в отдельности.

Класс Domain

Определение доступных доменов

Класс Domain является верхним уровнем пространства имен, поэтому для определения доступных доменов в функции GetObject() ограничиваются название протокола. Необходимо помнить, что название протокола должно быть написано именно WinNT – в противном случае сценарий выдаст ошибку:

Пример 4

 

Set obj=GetObject("WinNT:")

    For Each element In obj

    temp=element.Name

    Next

MsgBox temp

Чтение параметров класса Domain

Класс Domain включает в себя восемь параметров. Все эти параметры задаются в групповых политиках, за исключением параметра Name. Описание параметров см. в Приложении.

При создании скрипта на VBScript необходимо помнить, что VBScript не преобразует типы данных автоматически, поэтому числовые данные необходимо преобразовывать в строковые с помощью функции cstr().

Пример 5. Чтение всех полей класса Computer

 

Set obj=GetObject("WinNT:")

    For Each element In obj

t1="Name: " + cstr(element.Name)+chr(13)

t2="MinPasswordLength: "+ cstr(element.MinPasswordLength)+chr(13)

t3="MinPasswordAge: " + cstr(element.MinPasswordAge)+chr(13)

t4="MaxBadPasswordsAllowed: "+ cstr(element.MaxBadPasswordsAllowed)+chr(13)

t5="AutoUnlockInterval: " + cstr(element.AutoUnlockInterval)+chr(13)

t6="LockoutObservationInterval: " + cstr(element.LockoutObservationInterval)

temp=temp+t1+t2+t3+t4+t5+t6+chr(13)+chr(13)

    Next

MsgBox temp

Значения MinPasswordAge и MaxPasswordAge указываются в групповых политиках в днях, поэтому необходим перевод в дни, для чего полученное число необходимо разделить на 86400; значения MinPasswordAge и LockoutObservationInterval указываются в групповых политиках в минутах, поэтому полученные значения необходимо разделить на 60.

Обновление параметров класса Domain

Установка новых параметров перечисленных значений осуществляется с помощью метода SetInfo.

Пример 6. Изменение значения минимальной длины пароля в домене (NewLenght=10)

     

    NewLenght=10

Set obj=GetObject("WinNT:")

    For Each element In obj

           element.MinPasswordLength= NewLenght

           obj.SetInfo

    temp ="NEW: MinPasswordLength: "+ cstr(element.MinPasswordLength)+chr(13)

    Next

      MsgBox temp

Перечисление объектов класса Domain

Просмотр содержимого контейнера осуществляется с помощью конструкции For в соответствии с приведенным ниже шаблоном. В качестве значения переменной Container может быть имя домена или компьютера:

Пример 7

 

Container="Value"

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

    For Each element In obj

    temp = temp + element.name + ";    "

    Next

MsgBox temp

Такой метод перечисления объектов будет возвращать все содержимое любой базы SAM – контроллера домена, сервера или рабочей станции.

В приведенном примере возвращались объекты всех классов, содержащиеся в домене (или в локальной базе SAM), поскольку тип объектов не определялся. Поскольку в домене огромное количество объектов, для увеличения скорости работы скрипта целесообразно использовать фильтр. Фильтр может в себя включать следующие объекты:

Таблица 3

 

Объект

Описание

Объект

Описание

User

Учетная запись пользователя

Group

Все группы

Computer

Учетная запись компьютера

LocalGroup

Локальная группа

Service

Сервис

GlobalGroup

Глобальная группа


Предыдущая страницаОглавлениеСледующая страница
 
[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]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2023 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100