El método Get
El método IADs::Get se usa para recuperar atributos con nombre individuales de un objeto de directorio.
En el ejemplo de código siguiente se usa el método IADs::Get para recuperar un atributo con nombre de un objeto .
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
En los lenguajes de Automatización, también se puede acceder a los atributos con nombre directamente mediante la notación de puntos. Por ejemplo, object. Get("distinguishedName") es idéntico a object.distinguishedName.
El ejemplo de código siguiente es idéntico al ejemplo anterior, salvo que se tiene acceso al atributo distinguishedName mediante la notación de puntos.
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 no se establece un valor en el objeto , el método IADs::Get devolverá el error "Propiedad no encontrada en la memoria caché".