diff --git a/sbin/Hourly/SyncProfilesToLDAP.pm b/sbin/Hourly/SyncProfilesToLDAP.pm
index fa4e56043..526ab0772 100644
--- a/sbin/Hourly/SyncProfilesToLDAP.pm
+++ b/sbin/Hourly/SyncProfilesToLDAP.pm
@@ -18,10 +18,31 @@ use WebGUI::SQL;
 use WebGUI::Auth;
 use WebGUI::User;
 
-#------------------------------------------------------ -------------
+my %ldapStatusCode = ( 0=>'success (0)', 1=>'Operations Error (1)', 2=>'Protocol Error (2)',
+        3=>'Time Limit Exceeded (3)', 4=>'Size Limit Exceeded (4)', 5=>'Compare False (5)',
+        6=>'Compare True (6)', 7=>'Auth Method Not Supported (7)', 8=>'Strong Auth Required (8)',
+        10=>'Referral (10)', 11=>'Admin Limit Exceeded (11)', 12=>'Unavailable Critical Extension (12)',
+        13=>'Confidentiality Required (13)', 14=>'Sasl Bind In Progress (14)',
+        15=>'No Such Attribute (16)', 17=>'Undefined Attribute Type (17)',
+        18=>'Inappropriate Matching (18)', 19=>'Constraint Violation (19)',
+        20=>'Attribute Or Value Exists (20)', 21=>'Invalid Attribute Syntax (21)', 32=>'LDAP Entry Does Not Exist (32)',
+        33=>'Alias Problem (33)', 34=>'Invalid DN Syntax (34)', 36=>'Alias Dereferencing Problem (36)',
+        48=>'Inappropriate Authentication (48)', 49=>'Invalid Credentials (49)',
+        50=>'Insufficient Access Rights (50)', 51=>'Busy (51)', 52=>'Unavailable (52)',
+        53=>'Unwilling To Perform (53)', 54=>'Loop Detect (54)', 64=>'Naming Violation (64)',
+        65=>'Object Class Violation (65)', 66=>'Not Allowed On Non Leaf (66)', 67=>'Not Allowed On RDN (67)',
+        68=>'Entry Already Exists (68)', 69=>'Object Class Mods Prohibited (69)',70=>'The results of the request are to large (70)',
+        71=>'Affects Multiple DSAs (71)', 80=>'other (80)',81=>'Net::LDAP cannot establish a connection or the connection has been lost (81)',
+		85=>'Net::LDAP timeout while waiting for a response from the server (85)',
+		86=>'The method of authentication requested in a bind request is unknown to the server (86)',
+		87=>'An error occurred while encoding the given search filter. (87)',
+		89=>'An invalid parameter was specified (89)',90=>'Out of Memory (90)',91=>'A connection to the server could not be established (91)',
+		92=>'An attempt has been made to use a feature not supported by Net::LDAP (92)');
+
+#-------------------------------------------------------------------
 sub _alias {
 	my %alias = (
-		firstName=>"givenname",
+		firstName=>"givenName",
 		lastName=>"sn",
 		email=>"mail",
 		companyName=>"o"
@@ -29,7 +50,7 @@ sub _alias {
 	return $alias{$_[0]} || $_[0];
 }
 
-#------------------------------------------------------ -------------
+#-------------------------------------------------------------------
 sub process {
 	my (@date, $userId, $u, $userData, $uri, $port, %args, $fieldName, $ldap, $search, $a, $b);
 	@date = WebGUI::DateTime::localtime(WebGUI::DateTime::time());
@@ -48,22 +69,28 @@ sub process {
 			%args = (port => $port);
 			$ldap = Net::LDAP->new($uri->host, %args);
 			if ($ldap) {
-				$ldap->bind;
-				$search = $ldap->search (base => $uri->dn, filter => $userData->{connectDN});
-				if (defined $search->entry(0)) {
-					my $user = WebGUI::User->new($userId);
-					$b = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId<>4");
-					while (($fieldName) = $b->array) {
-						if ($search->entry(0)->get_value(_alias($fieldName)) ne "") {
-							$user->profileField($fieldName,$search->entry(0)->get_value(_alias($fieldName)));
-						}
-					}
-					$b->finish;
-					$ldap->unbind;
+			   my $result = $ldap->bind;
+			   if ($result->code == 0) {
+				   $search = $ldap->search( base=>$userData->{connectDN}, filter=>"&(objectClass=*)" );
+				   if($search->code) {
+				      print "Couldn't search LDAP ".$uri->host." to find user ".$u->username." (".$userId.").\nError Message from LDAP: ".$ldapStatusCode{$search->code}."\n";
+				   } elsif($search->count == 0) {
+				      print "No results returned for user with dn ".$userData->{connectDN}."\n";
+				   } else {
+				      my $user = WebGUI::User->new($userId);
+					  $b = WebGUI::SQL->read("select fieldName from userProfileField where profileCategoryId<>4");
+					  while (($fieldName) = $b->array) {
+					     if ($search->entry(0)->get_value(_alias($fieldName)) ne "") {
+						    $user->profileField($fieldName,$search->entry(0)->get_value(_alias($fieldName)));
+						 }
+					  }
+					  $b->finish;
+				   }
+				   $ldap->unbind;
 				} else {
-					print "Couldn't connect to LDAP host ".$uri->host." to find user ".$u->username." (".$userId.").\n";
-				}
-			}
+			      print "Couldn't bind to LDAP host ".$uri->host."\nError Message from LDAP: ".$ldapStatusCode{$result->code}."\n";
+			   }
+			} 
 		}
 		$a->finish;
 	}