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

在自动化语言中，还可以使用点表示法直接访问命名属性。 例如，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 方法将返回错误“在缓存中未找到该属性”。