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 ».