Re: I want to get os all configuration

[Old_Gray_Bear]

in reply to I want to get os all configuration

If I understand you, what you are looking for is a combination of $^O and several CPAN modules. Once you have the operating system name in hand, you use the functions provided by packages in the $^O::Sysinfo or Win32::SystemInfo (in the case of Windows) name space to extract the information you want.

Example:

#! /usr/local/bin/perl
use strict;
use warnings;

use Linux::SysInfo;
use Win32::SystemInfo;

my $this_system = $^O;

if ($this_system eq 'MSwin32') {
    my %windata;
    Win32::SystemInfo::MemoryStatus(%windata);
    ####
    #  process the results
    ####
} elsif ($this_system eq 'Linux') {
    my %linuxdata;
    %linuxdata = Linux::SysInfo::sysinfo() or die "Linux::SysInfo::sys
+info() failed";
    #####
    # process the results
    #####
} else {
     die "Undefined OS -- $this_system";
}

exit(0);

[joyeux]

Hi Old_Gray_Bear, Thank u so much for ur help..Also i want to get computer name,full computer name,workgroup,system type information...could please help me.. Thanks and Regards Joyeux

[afoken]

Are you aware that perlmonks is not IRC? Please show some effort to make your postings readable.

CPAN has some modules to fetch system information. Use the search function.

The "workgroup" concept is specific for MS Windows. The concept of having two different names is also a Windows concept. You won't find either on Linux or BSDs.

Perhaps all you really want is some system information program like BGInfo.

Alexander