Listing 7: Code to Remove the Attribute from Indexes and the GC

WScript.Echo "Disabling attributeSchema class object: 'cn=" & _
	cCNAttributeName & "'."

' Retrieve the new attribute object.
Set objNewAttribute = objSchema.GetObject _
	("attributeSchema", "cn=" & cCNAttributeName)

Wscript.Echo "  Removing '" & cCNAttributeName & _
	"' from indexes and GC."
objNewAttribute.Put "searchFlags", 0
objNewAttribute.Put "isMemberOfPartialAttributeSet", False
objNewAttribute.SetInfo