Get メソッド

IADs::Get メソッドは、ディレクトリ オブジェクトから個々の名前付き属性を取得するために使用されます。

次のコード例では、 IADs::Get メソッドを使用して、オブジェクトから名前付き属性を取得します。

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

Automation 言語では、ドット表記を使用して名前付き属性に直接アクセスすることもできます。 たとえば、object.Get("distinguishedName") は、 object.distinguishedName と同じです。

次のコード例は、distinguishedName 属性にドット表記を使用してアクセスすること以外は前の例と同じです。

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

オブジェクトに値が設定されていない場合、 IADs::Get メソッドは "キャッシュにプロパティが見つかりません" とうエラーを返します。