$trash_container = 'OU=Disabled_accounts,DC=domain,DC=organization'
go c:

$total_processed = 0
$total_fine = 0
	$container = GetObject("LDAP://"+$trash_container)
	$container.filter = split("user")
	for each $user in $container
	        $user.cn ?
		" " $user.homedirectory
		if exist($user.homedirectory) and not instr($user.homedirectory,'\\server\archivedfoldershare$\')
		 md '\\server\archivedfoldershare$\'+@year+@monthno+@mdayno+' '+$user.cn
		 ? "	" '\\server\archivedfoldershare$\'+@year+@monthno+@mdayno+' '+$user.cn " " @error ? "	"
		 move $user.homedirectory+'\*.*' '\\server\archivedfoldershare$\'+@year+@monthno+@mdayno+' '+$user.cn+'\' /r /h /s
		 if not @error
		  del $user.homedirectory+'\*.*' /f /h /s
		  "DEL ERROR: " @error " "
		  shell '%comspec% /c rd /s /q "'+$user.homedirectory+'"' ;kixtart does not work, so need to shell out
		  "RD ERROR: " @error ?
		  if @error sleep 30 exit 0 endif
		  $user.homedirectory = '\\server\archivedfoldershare$\'+@year+@monthno+@mdayno+' '+$user.cn
		  $user.setinfo
		  if @error
		    "error setting new home dir." @error
		    get $ exit 0
		  endif
		 else
		  "Move ERROR: " @error ?
		 endif
		 $count=1+$count
		else
		 $countOK=1+$countOK
		endif
	next

? $count " " $countOK
get $