Added function to check if machine is part of a domain.
This commit is contained in:
parent
c0c42808c9
commit
542b6b4cc3
|
@ -20,6 +20,7 @@ require Exporter;
|
||||||
|
|
||||||
use logging;
|
use logging;
|
||||||
use cfgparser;
|
use cfgparser;
|
||||||
|
use sysinfo;
|
||||||
|
|
||||||
use Symbol 'gensym';
|
use Symbol 'gensym';
|
||||||
use Cwd;
|
use Cwd;
|
||||||
|
@ -601,6 +602,12 @@ sub get_default_dnsdomain ()
|
||||||
return $found;
|
return $found;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub is_part_of_domain ()
|
||||||
|
{
|
||||||
|
my $wbem = get_wbem_info();
|
||||||
|
return defined $wbem && $$wbem{'PartOfDomain'};
|
||||||
|
}
|
||||||
|
|
||||||
sub get_registry_value ($)
|
sub get_registry_value ($)
|
||||||
{
|
{
|
||||||
my ($node) = @_;
|
my ($node) = @_;
|
||||||
|
|
3627
pkgtool.pm~
Normal file
3627
pkgtool.pm~
Normal file
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue