O Método Get

O método IADs::Get é usado para recuperar atributos nomeados individuais de um objeto de diretório.

O exemplo de código a seguir usa o método IADs::Get para recuperar um atributo nomeado de um 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

Em linguagens de automação, os atributos nomeados também podem ser acessados diretamente usando a notação de ponto. Por exemplo, objeto. Get("distinguishedName") é idêntico a object.distinguishedName.

O exemplo de código a seguir é idêntico ao exemplo anterior, exceto que o atributo distinguishedName é acessado usando a notação de ponto.

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

Se um valor não estiver definido no objeto, o método IADs::Get retornará o erro "Propriedade não encontrada no cache".