Méthode d’extraction

La méthode IADs :: obtenir permet de récupérer des attributs nommés individuels à partir d’un objet d’annuaire.

L’exemple de code suivant utilise la méthode IADs :: obtenir 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 d’automatisation, il est également possible d’accéder directement aux attributs nommés à l’aide de la notation par points. Par exemple, objet. La valeur de l’objet obtient (« distinguishedName ») est identique à Object. DistinguishedName.

L’exemple de code suivant est identique à l’exemple précédent, à ceci près que l’attribut distinguishedName est accessible à l’aide de la notation par points.

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 pour l’objet, la méthode IADs :: obtenir retourne l’erreur « la propriété est introuvable dans le cache ».