Listing 8: Code to Rename the Attribute

Wscript.Echo "  Renaming '" & cCNAttributeName & _
	"' to '" & "CN=DEACTIVATED-" & strDateTime & "-" & _
	cCNAttributeName & "'"
strADsPath = objNewAttribute.AdsPath
Set objNewAttribute = objSchema.MoveHere (strADsPath, _
	"CN=DEACTIVATED-" & strDateTime & "-" & cCNAttributeName)