Mega Code Archive

 

Categories / Perl / Win32

 

Node and domain information

#!/usr/bin/perl -w use Win32;            $node   = Win32::NodeName(); $domain = Win32::DomainName(); # Print info. print "Node=$node, Domain=$domain\n";