From ecfa05d97786cf0713bec9c9bd398d9951fc6957 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 15 Feb 2010 20:53:22 +0000
Subject: [PATCH] -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
---
 xCAT-server/lib/perl/xCAT/ADUtils.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/ADUtils.pm b/xCAT-server/lib/perl/xCAT/ADUtils.pm
index 718d69a58..e3d308c55 100644
--- a/xCAT-server/lib/perl/xCAT/ADUtils.pm
+++ b/xCAT-server/lib/perl/xCAT/ADUtils.pm
@@ -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'));