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