         $ensObj=$host->{'ens'};
         $dnObj=$host->{'obj'};
         $grpObj=$hosts->{'grpalias'};
         $portAlive=$hosts->{'portalive'};
         if ( $ensObj eq "" ) {
              $ensObj=$h_grphosts{$grpObj}->{'ens'}."/cn=".$hosts->{'name'};
         } 
         if ( $dnObj eq "" ) {
              $dnObj="ou=".$hosts->{'name'}.",".$h_grphosts{$grpObj}->{'obj'};
         } 
         if ( $portAlive eq "" ) {
              $portAlive="22";
         }
#         $lin_hosts=$hosts->{'alias'}."::".$hosts->{'name'}."::".
#                        $hosts->{'grpalias'}."::".$hosts->{'obj'}."::".
#                        $hosts->{'ens'}."::".$hosts->{'ipname'}."::".
#                        $hosts->{'maxsess'}."::".$hosts->{'portalive'}."::".
#                        $hosts->{'descrip'}."::\n";

         $lin_hosts=$hosts->{'alias'}."::".$hosts->{'name'}."::".
                        $hosts->{'grpalias'}."::".$dnObj."::".
                        $ensObj."::".$hosts->{'ipname'}."::".
                        $hosts->{'maxsess'}."::".$portAlive."::".
                        $hosts->{'descrip'}."::\n";
             print FILEHOSTS "$lin_hosts";
