Интерфейс IADsUser (iads.h)

Интерфейс IADsUser — это двойной интерфейс, наследующий от IAD. Он предназначен для представления учетной записи конечного пользователя в сети и управления ею. Вызовите методы этого интерфейса для доступа к данным учетной записи конечного пользователя и управления ими. К таким данным относятся имена пользователей, номера телефонов, должность и т. д. Этот интерфейс поддерживает функции для определения связи с группами пользователя, а также для установки или изменения пароля.

Чтобы выполнить привязку к пользователю домена через поставщик WinNT, используйте доменное имя в составе ADsPath, как показано в следующем примере кода.

GetObject("WinNT://MYDOMAIN/jeffsmith,user")

Аналогичным образом используйте имя компьютера в составе ADsPath для привязки к локальному пользователю.

GetObject("WinNT://MYCOMPUTER/jeffsmith,user")

В Active Directory пользователи домена находятся в каталоге . В следующем примере кода показано, как выполнить привязку к пользователю домена через поставщик LDAP.

GetObject("LDAP://CN=Jeff Smith,OU=Sales,DC=Fabrikam,DC=Com")

Однако локальные учетные записи находятся в локальной базе данных SAM, и поставщик LDAP не взаимодействует с локальной базой данных. Таким образом, чтобы выполнить привязку к локальному пользователю, необходимо пройти через поставщик WinNT, как описано во втором примере кода.

Наследование

Интерфейс IADsUser наследуется от IDispatch и IAD. IADsUser также имеет следующие типы элементов:

Методы

Интерфейс IADsUser содержит следующие методы.

Комментарии

Как и любой другой объект ADSI, объект контейнера создает объект учетной записи пользователя Windows. Сначала выполните привязку к объекту контейнера. Затем вызовите метод IADsContainer::Create и укажите обязательные или необязательные атрибуты.

При использовании WinNT вам не нужно указывать дополнительные атрибуты при создании пользователя. Вы можете вызвать метод IADsContainer::Create , чтобы создать объект пользователя напрямую.

Dim dom As IADsContainer
Dim usr As IADsUser

On Error GoTo Cleanup

Set dom = GetObject("WinNT://MyDomain")
Set usr = dom.Create("user","jeffsmith")
usr.SetInfo

Cleanup:
    If(Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set mach = Nothing
    Set usr = Nothing

В этом случае создается пользователь домена со следующими значениями по умолчанию.

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

Dim mach As IADsContainer
Dim usr as IADsUser

On Error GoTo Cleanup
Set mach = GetObject("WinNT://MyMachine,Computer")
Set usr = mach.Create("user","jeffsmith")
usr.SetInfo

Cleanup:
    If(Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set mach = Nothing
    Set usr = Nothing

Только что созданный локальный пользователь будет иметь те же свойства по умолчанию, что и пользователь домена. Однако членство в группе будет "пользователи", а не "пользователь домена".

Требования

См. также раздел

IAD

IADsContainer::Create

Методы свойств IADsUser

IDispatch