Listing 2: Code to Get the Schema Path

Set objRoot = GetObject ("LDAP://RootDSE")
Set objSchema = GetObject ("LDAP://"& objRoot.Get _
	("schemaNamingContext"))