Node and domain information : Win32 « Win32 « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Win32 » 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";

   
    
  
Related examples in the same category
1.Is windows 95
2.Is windows NT
3.OS version
4.Gets user login name on Windows
5.The Win32::Spawn function acts much like the system function and the Windows start command.
6.Convert a Windows-specific error to a text string using the Win32::FormatMessage function.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.