programming-examples/perl/Win32/Node and domain information.pl

#!/usr/bin/perl -w
use Win32;
          
$node   = Win32::NodeName();
$domain = Win32::DomainName();

# Print info.
print "Node=$node, Domain=$domain\n";