Wscript.Echo « Переименование ?« & cCNAttributeName & _
	«? to ?« & «CN=DEACTIVATED-» & strDateTime & «-» & _
	cCNAttributeName & «?«
strADsPath = objNewAttribute.AdsPath
Set objNewAttribute = objSchema.MoveHere (strADsPath, _
	«CN=DEACTIVATED-» & strDateTime & «-» & cCNAttributeName)