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 ».
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour