use strict;

use Win32::TieRegistry (Delimiter=> "/");

my $Hostname = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Hostname"};
print "\n$Hostname\n";
print "---------------------------------------\n\n";
#Dhcp Domain Name auslesen
my $Domain = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/DhcpDomain"};
print "\n$Domain\n";
print "---------------------------------------\n\n";

my $Host_Domain_Name = "$Hostname.$Domain";
print "\n$Host_Domain_Name\n";
print "---------------------------------------\n\n";