Поделиться через

Метод Get

  • Статья

Метод IADs::Get используется для получения отдельных именованных атрибутов из объекта каталога.

В следующем примере кода используется метод IADs::Get для получения именованного атрибута из объекта.

Dim MyUser as IADs
Dim MyDistinguishedName as String

On Error GoTo Cleanup
 
' Bind to a specific user object.
set MyUser = GetObject("LDAP://CN=Jeff Smith,CN=Users,DC=fabrikam,DC=com")
 
' Get property.
MyDistinguishedName = MyUser.Get("distinguishedName")

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

На языках автоматизации именованные атрибуты также можно получить непосредственно с помощью нотации точек. Например, объект. Get("distinguishedName") идентичен object.distinguishedName.

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

Dim MyUser as IADs
Dim MyDistinguishedName as String

On Error GoTo Cleanup
 
' Bind to a specific user object.
set MyUser = GetObject("LDAP://CN=Jeff Smith,CN=Users,DC=fabrikam,DC=com")
 
' Get property.
MyDistinguishedName = MyUser.distinguishedName

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

Если значение не задано в объекте, метод IADs::Get вернет ошибку "Свойство не найдено в кэше".