Win32 Perl

  1. Home
  2. Perl
  3. Win32
  4. Node and domain information
#!/usr/bin/perl -w
use Win32;
          
$node   = Win32::NodeName();
$domain = Win32::DomainName();
# Print info.
print "Node=$node, Domain=$domain\n";