Added variable for short Windows domain name.

This commit is contained in:
László Valkó 2022-01-24 02:36:18 +01:00
parent cf0c12aae2
commit f7e3507bdb

View file

@ -681,9 +681,14 @@ sub is_part_of_domain (;$)
my $wbem = get_wbem_info();
if (defined $wbem && $$wbem{'PartOfDomain'}) {
$$vars{'current_domain'} = $$wbem{Domain};
my $shortdomain = $$wbem{Domain};
$shortdomain =~ s/\..*$//g;
$$vars{'current_shortdomain'} = $shortdomain;
print_log('global', INFO, 'short domain: %s', $shortdomain);
return 1;
}
$$vars{'current_domain'} = '';
$$vars{'current_shortdomain'} = '';
return 0;
}