Article ID: 194720
Article Last Modified on 7/21/1999
Dim adsRoot
Dim adsNewCont
Dim strLdapPath
Dim strAdmin
Dim strAdminPwd
strLdapPath = "LDAP://localhost:389/o=Microsoft"
strAdmin = "cn=Administrator,ou=Members,o=Microsoft"
strAdminPwd = "password"
Set adsRoot = GetObject("LDAP:")
Set adsRoot = adsRoot.OpenDSObject(strLdapPath, strAdmin, _
strAdminPwd, 0)
Set adsNewCont = adsRoot.Create("organizationalUnit",
"ou=DynamicObj")
adsNewCont.Put "containsDynamicOnly", CInt(1)
adsNewCont.SetInfo
When the containsDynamicOnly attribute is set on a container, any objects
created in the container are only kept in memory and, therefore, should
not be used for anything but storing dynamic objects. Also, once this flag
has been set, it cannot be removed.
Additional query words: kbDSupport
Keywords: kbprb KB194720