Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

# Description: Windows Basic System Information

our $VERSION = '0.1.0';

# This is a simple script to gather some basic Windows system information

# all we get is the operating system name (small, code name) and the

# display name (ie, Windows Server 2019

# uses Win32 (cpan install Win32)

# find our location and use it for searching for libraries

BEGIN {

   use FindBin;

   use File::Spec;

   use lib File::Spec->catdir($FindBin::Bin);

   eval( 'use library;' );

   die "Could not find library.pm in the code directory\n" if $@;

   eval( 'use Data::Dumper;' );

}

# check for valid OS. 

exit 1 unless &checkOS( { 'mswin32' => undef } );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist

# script returns a 2

#foreach my $command ( 'systeminfo' ) {

#   exit 2 unless $commands{$command} = &validCommandOnSystem( $command );

#}

# category we will use for all values found

# see sysinfo for a list of valid categories

my $CATEGORY = 'operatingsystem';

use Win32;

# in scalar, will simply return the short name. use 'scalar' to force that.

printf( "%s\t%s\t%s\n", $CATEGORY, 'distribution', scalar Win32::GetOSName() );

printf( "%s\t%s\t%s\n", $CATEGORY, 'description', Win32::GetOSDisplayName() );

exit 0;