Subversion Repositories camp_sysinfo_client_3

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

# Description: Networking for Unix systems

our $VERSION = '1.2';

# Microsoft network module for sysinfo client
# Author: R. W. Rodolico
# Date:   2025-03-30

# module to get network interface information for Windows systems
# uses Win32::Net::Info
# install with cpan install Win32::Net::Info

# 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 (  ) {
#   exit 2 unless &validCommandOnSystem( $command );
#}

use Win32::Net::Info qw(:subs);

my $CATEGORY = 'network';

foreach my $adapter ( Win32::Net::Info->interfaces) {
    my $interface = Win32::Net::Info->new( $adapter );
        my $name = $interface->name();
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'description', $interface->description() );
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'mac', $interface->mac() );
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'address', $interface->ipv4() );
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'netmask', $interface->ipv4_netmask() );
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'gateway', $interface->ipv4_default_gateway() ) if $interface->ipv4_default_gateway();
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'mtu', $interface->mtu() );
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'ip6address', $interface->ipv6() ) if $interface->ipv6();
    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'ip6networkbits', $interface->ipv6_netmask() )if $interface->ipv6_netmask();
}