set short_name to system attribute "USER"
tell application "Finder"
	if not (exists alias file named short_name in desktop) then

		if not (exists disk "profiles") then
			try
				mount volume "smb://transit-file1.admin.umass.edu/profiles"
			on error
				return
			end try
			repeat until exists disk "profiles"
			end repeat

		end if
		set shareAlias to make new alias file to folder short_name of disk "profiles"
		set locked of shareAlias to true
	end if
end tell