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