view release on metacpan or  search on metacpan

lib/Armadito/Agent/Tools/Hostname.pm  view on Meta::CPAN

sub _getHostnameWindows {
	my $getComputerName = Win32::API->new( "kernel32", "GetComputerNameExW", [ "I", "P", "P" ], "N" );
	my $buffer = "\x00" x 1024;
	my $n = 1024;    #pack ("c4", 160,0,0,0);

	$getComputerName->Call( 3, $buffer, $n );

	# convert from UTF16 to UTF8
	my $hostname = substr( decode( "UCS-2le", $buffer ), 0, ord $n );

	return $hostname || $ENV{COMPUTERNAME};
}

1;
__END__

=head1 NAME

Armadito::Agent::Tools::Hostname - OS-independent hostname computing

=head1 DESCRIPTION