Compartir a través de


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é".