Samba::LDAP::Machine - Manipulate Samba LDAP Machines (computers)

    use Carp;
    use Samba::LDAP::Machine;

    my $machine = Samba::LDAP::Machine->new()
        or croak "Can't create object\n";

    


    my $result = $machine->add_posix_machine( {
                                                host => 'linux1', 
                                                uid => '1015', 
                                                gid => '1015',
                                            }
                                          );
    print "linux1 added\n" if $result;

    my $result = $machine->add_samba_machine( $host, $uid );
    print "$host added\n" if $result;

package Samba::LDAP::Machine;

# Returned by Perl::MinimumVersion 0.11
require 5.006;

use warnings;
use strict;
use Carp qw(carp croak);
use Readonly;
use Regexp::DefaultFlags;
use Crypt::SmbHash;
use base qw(Samba::LDAP::Base);

our $VERSION = '0.05';

#
# Add Log::Log4perl to all our classes!!!!
#

# Our usage messages
Readonly my $ADD_POSIX_MACHINE_USAGE => 
        'Usage: add_posix_machine( 
                              host => \'linux1\', uid => \'1015\', gid => \'1015\', );';

#========================================================================
#                         -- PUBLIC METHODS --
#========================================================================

#------------------------------------------------------------------------
# add_posix_machine()
#
# Add a workstation to the Directory
#------------------------------------------------------------------------

sub add_posix_machine {
    my $self = shift;
    my %machine_args = (
        time_to_wait => 0,
        @_,    # argument pair list goes here
    );

    my $host = $machine_args{host};
    my $uid  = $machine_args{uid};
    my $gid  = $machine_args{gid};
    my $wait = $machine_args{time_to_wait};

    # Required arguments
    my @required_args = ( $host, $uid, $gid );
    croak $ADD_POSIX_MACHINE_USAGE
        if any {!defined $_} @required_args;

    my $ldap = Samba::LDAP->new();
    $ldap = $ldap->connect_ldap_master(); 

    my $add = $ldap->add ( "uid=$host,$self->{computersdn}",
                                  attr => [
                                           'objectclass' => ['top', 'person',
'organizationalPerson', 'inetOrgPerson', 'posixAccount'],
                                           'cn'   => "$host",
                                           'sn'   => "$host",
                                           'uid'   => "$host",
                                           'uidNumber'   => "$uid",
                                           'gidNumber'   => "$gid",
                                           'homeDirectory'   => '/dev/null',
                                           'loginShell'   => '/bin/false',
                                           'description'   => 'Computer',
                                           'gecos'   => 'Computer',
                                          ]
                                );
    
    $add->code && warn "failed to add entry: ", $add->error ;
    
    # take the session down
    $add->unbind;

    sleep($wait);
    return 1;
}

#------------------------------------------------------------------------
# add_samba_machine( $host, $uid )
#
# Add a workstation to the Domain
#------------------------------------------------------------------------

sub add_samba_machine {
    my $self = shift;
    my $host = shift;
    my $uid  = shift;

    my $sambaSID = 2 * $uid + 1000;
    my ($name) = $host =~ s/.$//s;

    my ($lmpassword,$ntpassword) = ntlmgen $name;   

    my $ldap = Samba::LDAP->new();
    $ldap = $ldap->connect_ldap_master(); 

    my $modify = $ldap->modify ( "uid=$host,$self->{computersdn}",
                                        changes => [
                                                    replace => [objectClass => ['inetOrgPerson', 'posixAccount', 'sambaSAMAccount']],
                                                    add => [sambaPwdLastSet => '0'],
                                                    add => [sambaLogonTime => '0'],
                                                    add => [sambaLogoffTime => '2147483647'],
                                                    add => [sambaKickoffTime => '2147483647'],
                                                    add => [sambaPwdCanChange => '0'],
                                                    add => [sambaPwdMustChange => '0'],
                                                    add => [sambaAcctFlags => '[W          ]'],
                                                    add => [sambaLMPassword => "$lmpassword"],
                                                    add => [sambaNTPassword => "$ntpassword"],
                                                    add => [sambaSID => "$self->{SID}-$sambaSID"],
                                                    add => [sambaPrimaryGroupSID => "$self->{SID}-0"]
                                                   ]
                                      );
    
    $modify->code && die "failed to add entry: ", $modify->error ;

    return 1;
}

#------------------------------------------------------------------------
# add_samba_machine_smbpasswd()
#
# Set the workstations password
#------------------------------------------------------------------------

sub add_samba_machine_smbpasswd {
    my $self = shift;
}

1;    # Magic true value required at end of module

__END__