{my $workgroup = $smb{Workgroup} || 'sme-server';
 my $domain = $DomainName || 'undefined';

 my @realm_parts = (($workgroup),(split(/\./,$domain)));

 my @dc_parts = map {'DC=' . $_} @realm_parts;
 $DC = join (',',@dc_parts);
 $OUT = "";}

