User home directory permissions script:

#!/usr/bin/perl -w
use strict;
my @users = `ls -1 /home/e-smith/files/users`;
foreach (@users) {
chomp ($_);
print "Changing $_\n";
`chmod -R 700 /home/e-smith/files/users/$_`;
`chown -R $_.$_ /home/e-smith/files/users/$_`;
`chmod -R 700 /home/e-smith/files/samba/profiles/$_`;
`chown -R $_.$_ /home/e-smith/files/samba/profiles/$_`;
`chmod -R 700 /home/e-smith/files/samba/profiles/$_.V2`;
`chown -R $_.$_ /home/e-smith/files/samba/profiles/$_.V2`;
}