use strict;
use warnings;

use Win32::Registry;

my $key = $HKLM->OpenEx("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon"); #");
print $key->GetValue("DefaultDomainName");