Méthode Get

La méthode IADs::Get est utilisée pour récupérer des attributs nommés individuels à partir d’un objet de répertoire.

L’exemple de code suivant utilise la méthode IADs::Get pour récupérer un attribut nommé à partir d’un objet.

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

Dans les langages Automation, les attributs nommés sont également accessibles directement à l’aide de la notation par points. Par exemple, objet. Get(« distinguishedName ») est identique à object.distinguishedName.

L’exemple de code suivant est identique à l’exemple précédent, sauf que l’attribut distinguishedName est accessible à l’aide de la notation point.

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

Si aucune valeur n’est définie sur l’objet, la méthode IADs::Get retourne l’erreur « Propriété introuvable dans le cache ».