Listing 5: Code to Rename the Auxiliary Class

strDateTime = Date & " " & Time
strADsPath = objNewClass.AdsPath
Wscript.Echo "  Renaming '" & cCNClassName & "' to '" & _
	"CN=DEACTIVATED-" & strDateTime & "-" & cCNClassName & "'"
Set objNewClass = objSchema.MoveHere (strADsPath, _
	"CN=DEACTIVATED-" & strDateTime & "-" & cCNClassName)