Udostępnij za pośrednictwem

Metoda Get

  • Artykuł

Metoda IADs::Get służy do pobierania poszczególnych nazwanych atrybutów z obiektu katalogu.

W poniższym przykładzie kodu użyto metody IADs ::Get w celu pobrania nazwanego atrybutu z obiektu.

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

W językach automatyzacji dostęp do nazwanych atrybutów można również uzyskać bezpośrednio przy użyciu notacji kropkowej. Na przykład obiekt . Get("distinguishedName") jest identyczny z object.distinguishedName.

Poniższy przykład kodu jest identyczny z poprzednim przykładem, z tą różnicą, że dostęp do atrybutu distinguishedName jest uzyskiwany przy użyciu notacji kropkowej.

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

Jeśli wartość nie jest ustawiona na obiekcie, identyfikatory IADs::Get metoda zwróci błąd "Nie znaleziono właściwości w pamięci podręcznej".