Metode Dapatkan

Metode IAD ::Get digunakan untuk mengambil atribut bernama individual dari objek direktori.

Contoh kode berikut menggunakan IAD::Dapatkan metode untuk mengambil atribut bernama dari objek.

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

Dalam bahasa Automation, atribut bernama juga dapat diakses langsung menggunakan notasi titik. Misalnya, objek . Get("distinguishedName") identik dengan object.distinguishedName.

Contoh kode berikut identik dengan contoh sebelumnya kecuali bahwa atribut distinguishedName diakses menggunakan notasi titik.

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

Jika nilai tidak diatur pada objek, iaD ::Dapatkan metode akan mengembalikan kesalahan "Properti tidak ditemukan dalam cache".