diff --git a/xCAT-server/lib/perl/xCAT/ADUtils.pm b/xCAT-server/lib/perl/xCAT/ADUtils.pm
index 2554f5eff..ea2a115c9 100644
--- a/xCAT-server/lib/perl/xCAT/ADUtils.pm
+++ b/xCAT-server/lib/perl/xCAT/ADUtils.pm
@@ -136,8 +136,20 @@ sub list_user_accounts { #provide enough data to construct an /etc/passwd lookin
         }
     }
     if ($failure) { return undef; }
+    foreach(keys %currvalues) {
+        $userhash{$currvalues{accountname}}->{$_} = $currvalues{$_};
+    }
     return \%userhash;
 }
+sub delete_user_account { #provide enough data to construct an /etc/passwd looking output
+    my %args = @_;
+    my $directoryserver = $args{directoryserver};
+    my $dnsdomain = $args{dnsdomain};
+    my $username = $args{username};
+    unless ($dnsdomain and $directoryserver $username) {
+        die "Invalid arguments";
+    }
+}
 =cut
   example: add_user_account(username=>'fred',fullname=>'fred the great');
 =cut