if not exist($location+'\')
	   md $location+'\'
	   if @error ;and @error<>183
	  	 ? "ERROR creating homedrive folder: " @ERROR " " @SERROR ?
		 "location: " $location ?
		 "uPrincipal: " $ad_user[4] ?
		 $ = redirectoutput('')
		 exit 2
	   endif
	  endif
	  move $ad_user[7]+'\' $location /r /h
	  if @error
	  	? "ERROR moving folder from old location: " @ERROR " " @SERROR ' ' @RESULT ?
		'from: ' $ad_user[7] ?
		'to: ' $location ?
		"uPrincipal: " $ad_user[4] ?
		$ = redirectoutput('')
		exit 1
	  endif