{
    use esmith::AccountsDB;

    my $adb = esmith::AccountsDB->open_ro() 
	or die "Couldnt' open AccountsDB\n";

    my @accounts = $adb->get('admin');
    push @accounts, $adb->users;

    foreach my $account (@accounts)
    {
	next unless (($account->prop('VPNClientAccess') || 'no') eq 'yes');

	next unless (($account->prop('PasswordSet') || 'no') eq 'yes');

	my $name = $account->key;

	$OUT .= <<HERE;	
$name	$SystemName	&/etc/samba/smbpasswd		*
HERE
    }
}
