-Fix AD machine account creation

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5223 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2010-02-15 20:53:22 +00:00
parent f13dc5f225
commit ecfa05d977

View File

@ -19,7 +19,7 @@ objectClass: person
objectClass: organizationalPerson
objectClass: user
objectClass: computer
cn: ##UPCASENODENAME##
cn: ##UPCASENODENAME##
distinguishedName: CN=##UPCASENODENAME##,##OU##
objectCategory: CN=Computer,CN=Schema,CN=Configuration##REALMDCS##
instanceType: 4
@ -95,15 +95,7 @@ sub add_machine_account {
return {error=>"Unknown error $rc"};
}
$rc = system("echo '$ldif'|ldapmodify -H ldaps://$directoryserver");
return {password=>$newpassword};
}
use Data::Dumper;
print Dumper(add_machine_account(node=>'v6.xcat.e1350',directoryserver=>'v4.xcat.e1350'));
print Dumper(add_machine_account(node=>'v6.xcat.e1350',directoryserver=>'v4.xcat.e1350',ou=>'ou=wharbl'));